exinst.dpr

来自「详细的ERP设计资料」· DPR 代码 · 共 18 行

program Exinst;

uses
  Forms,
  OgFirst,
  ExInstU in 'EXINSTU.PAS' {FirstInstFrm};


begin
  Application.Title := 'Single Instance Example';

  if IsFirstInstance then begin
    Application.CreateForm(TFirstInstFrm, FirstInstFrm);
    Application.Run;
  end else
    ActivateFirstInstance;
end.