project1.dpr

来自「利用内存映射原理实现的同时只能运行一个实例的例子」· DPR 代码 · 共 19 行

program Project1;

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

{$R *.res}

begin
  if not CheckPrevious.RestoreIfRunning(Application.Handle, 1) then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;

end.