2004-06-07 16:37:41 +02:00
|
|
|
|
program X2UtilsTest;
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Forms,
|
|
|
|
|
|
X2UtOS in '..\X2UtOS.pas',
|
|
|
|
|
|
X2UtApp in '..\X2UtApp.pas',
|
|
|
|
|
|
X2UtHandCursor in '..\X2UtHandCursor.pas',
|
|
|
|
|
|
X2UtSingleInstance in '..\X2UtSingleInstance.pas',
|
2004-06-07 17:31:14 +02:00
|
|
|
|
FMain in 'Forms\FMain.pas' {frmMain},
|
|
|
|
|
|
X2UtStrings in '..\X2UtStrings.pas';
|
2004-06-07 16:37:41 +02:00
|
|
|
|
|
|
|
|
|
|
{$R *.res}
|
|
|
|
|
|
|
|
|
|
|
|
const
|
|
|
|
|
|
CAppID = '{DCAC19C4-1D7D-47C0-AD4E-2A1DA39824E0}';
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
frmMain: TfrmMain;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
if not SingleInstance(CAppID) then
|
|
|
|
|
|
exit;
|
|
|
|
|
|
|
|
|
|
|
|
Application.Initialize;
|
2004-06-07 17:31:14 +02:00
|
|
|
|
Application.Title := 'X<>Utils Test';
|
2004-06-07 16:37:41 +02:00
|
|
|
|
Application.CreateForm(TfrmMain, frmMain);
|
|
|
|
|
|
Application.Run;
|
|
|
|
|
|
end.
|
