program capture;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  //添加以下兩行代碼,使程序運行后,不顯示主窗體
  //但是執行FormCreate中的事件
  Application.ShowMainForm:=False;
  Application.ExecuteAction(Form1.Action);
  Application.Run;
end.