核心提示：program OncePerSessionTrialTest;usesWindows,Forms,mainUnit in 'mainUnit.pas' {FormMain};{$R *.res}be...
program OncePerSessionTrialTest;uses
Windows,
Forms,
mainUnit in 'mainUnit.pas' {FormMain};
{$R *.res}
begin
Application.Initialize;
if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then
begin
GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ;
Application.CreateForm(TFormMain, FormMain) ;
Application.Run;
end
else
begin
Application.MessageBox('本程序已运行' ) ;
end;
end.
