project1.dpr

来自「这是一个用delphi7.0 编写的P串口通讯程序」· DPR 代码 · 共 27 行

program project1;
uses
  Forms,
  Windows,
  Messages,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in '..\comm2lzp\msco2\Unit2.pas' {Form2};

var
  RvHandle : hWnd;

{$R *.res}

begin
  RvHandle := FindWindow('comp', NIL);
  if RvHandle > 0 then begin
     PostMessage(RvHandle, CM_RESTORE, 0, 0);
     Exit;
  end;

  Application.Initialize;
  Application.Title := '串口幽灵';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.