project1.~dpr

来自「Delphi实效编程百例的随书源代码 这是其中的操作系统部分」· ~DPR 代码 · 共 27 行

program Project1;

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

{$R *.RES}

begin

{  if hPrevInst = 0 then
  begin //如果当前实例是唯一实例
    if (ParamCount > 0) and
       ((UpperCase(ParamStr(1)) = '/S') or (UpperCase(ParamStr(1)) = '/P')) then
    begin
 }     //如果是激活状态
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
{    end
    else begin
      //可以在这里加入你的配置代码
    end;
 } Application.Run;
//  end;

end.