project1.dpr

来自「Delphi7应用编程150例 附书源码」· DPR 代码 · 共 22 行

program Project1;

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

{$R *.res}

begin
  Application.Initialize;
  if ParamCount>0 then
  begin
      ShowMessage(ParamStr(1));
  end
  else
  begin
      Application.CreateForm(TForm1, Form1);
      Application.Run;
  end;
end.