29 lines
544 B
ObjectPascal
29 lines
544 B
ObjectPascal
|
program X2UtilsTest;
|
||
|
|
|
||
|
|
uses
|
||
|
|
madExcept,
|
||
|
|
madLinkDisAsm,
|
||
|
|
Forms,
|
||
|
|
X2UtOS in '..\X2UtOS.pas',
|
||
|
|
X2UtApp in '..\X2UtApp.pas',
|
||
|
|
X2UtHandCursor in '..\X2UtHandCursor.pas',
|
||
|
|
X2UtSingleInstance in '..\X2UtSingleInstance.pas',
|
||
|
|
FMain in 'Forms\FMain.pas' {frmMain};
|
||
|
|
|
||
|
|
{$R *.res}
|
||
|
|
|
||
|
|
const
|
||
|
|
CAppID = '{DCAC19C4-1D7D-47C0-AD4E-2A1DA39824E0}';
|
||
|
|
|
||
|
|
var
|
||
|
|
frmMain: TfrmMain;
|
||
|
|
|
||
|
|
begin
|
||
|
|
if not SingleInstance(CAppID) then
|
||
|
|
exit;
|
||
|
|
|
||
|
|
Application.Initialize;
|
||
|
|
Application.CreateForm(TfrmMain, frmMain);
|
||
|
|
Application.Run;
|
||
|
|
end.
|