project1.dpr

《Delphi 7应用编程150例》源码（全）

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.