You've already forked lazarus-ccr
a9c3a3022c
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
26 lines
360 B
ObjectPascal
26 lines
360 B
ObjectPascal
program Exinst;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Interfaces,
|
|
Forms,ogfirst,
|
|
EXINSTU in 'EXINSTU.pas' {FirstInstFrm};
|
|
|
|
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
|
|
Application.Initialize;
|
|
Application.Title := 'First instance example';
|
|
Application.CreateForm(TFirstInstFrm, FirstInstFrm);
|
|
|
|
if IsFirstInstance then
|
|
Application.Run
|
|
else
|
|
ActivateFirstInstance;
|
|
|
|
end.
|