UoSpy.dpr
上传用户:jiansibo
上传日期:2015-07-04
资源大小:524k
文件大小:1k
源码类别:

破解

开发平台:

Delphi

  1. program UoSpy;
  2. uses
  3.   Windows,
  4.   Messages,
  5.   SysUtils,
  6.   Proc in 'Proc.pas',
  7.   Win in 'Win.pas',
  8.   KeyScan in 'KeyScan.pas';
  9. const
  10.   HookMutexName='HackHookExistMutex';
  11. var
  12.   HookMutex:thandle;
  13. {$r *.res}
  14. begin
  15.   HookMutex:=CreateMutex(nil,True,HookMutexName);
  16.   if GetLastError<>ERROR_ALREADY_EXISTS then
  17.   begin
  18.     Init;
  19.     StartHook;
  20.     Run;
  21.   end else
  22.   begin
  23.     Closehandle(HookMutex);
  24. //    messagebox(0,pchar('Application is Runing'+#13+'Exit Ok?'),pchar(''),0);
  25.   end;
  26. end.