Remote Control

Development Platform:

Delphi

svGetxII.dpr：Code Content

							program svGetxII;
uses
  Forms,
  messages,
  windows,
  Sysutils,
  Unit1 in 'Unit1.pas' {frmMain};
{$R *.res}
var
  handle:integer;
begin
  handle:=findwindow('TfrmMain',nil);
  if handle<>0 then
  begin
    SendMessage(handle,wm_close,0,0);
    sleep(1000);
  end;
  Application.Initialize;
  Application.Title := 'GetX-II 服务器端';
  Application.CreateForm(TfrmMain, frmMain);
  Application.ShowMainForm :=false;
  Application.Run;
end.

						