project2.dpr

这个也不错

program Project2;

uses
  Forms,
  windows,
  messages,
  server in 'server.pas' {Form1};

{$R *.RES}
const
 CM_RESTORE = WM_USER + $1000;
 MYAPPNAME = 'My Delphi Program';
var
 RvHandle : hWnd;

begin
  RvHandle := FindWindow(MYAPPNAME, NIL);
  if RvHandle > 0 then
    begin
      PostMessage(RvHandle, CM_RESTORE, 0, 0);
      Exit;
    end;
  Application.Initialize;
  Application.Title := 'kernel32';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.