anti_moreapps.pas

来自「DELPHI7程序编写的游戏截图器 生成.EXE文件可以进行游戏截图」· PAS 代码 · 共 28 行

unit Anti_MoreApps;

interface
  function HaveApp(AppID :String) :Boolean;

implementation

uses Windows;

var
  HMutex :THandle;

function HaveAPP(AppID :String) :Boolean;
begin
  Result :=False;
  HMutex :=OpenMutex(MUTEX_ALL_ACCESS,False,PChar( AppID));
  if HMutex =0 then
    HMutex :=CreateMutex( Nil, False, PChar( AppID))
   else Result :=True;
end;

initialization

finalization
  if HMutex <>0 then CloseHandle(HMutex);

end.