You've already forked lazarus-ccr
24 lines
348 B
ObjectPascal
24 lines
348 B
ObjectPascal
|
program Exinst;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
uses
|
||
|
|
Interfaces,
|
||
|
|
Forms,ogfirst,
|
||
|
|
EXINSTU in 'EXINSTU.pas' {FirstInstFrm};
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
Application.Initialize;
|
||
|
|
Application.Title := 'First instance example';
|
||
|
|
Application.CreateForm(TFirstInstFrm, FirstInstFrm);
|
||
|
|
|
||
|
|
if IsFirstInstance then
|
||
|
|
Application.Run
|
||
|
|
else
|
||
|
|
ActivateFirstInstance;
|
||
|
|
|
||
|
|
end.
|