28 lines
533 B
Plaintext
28 lines
533 B
Plaintext
program KeyMon;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Tocsg.Win32,
|
|
Tocsg.Safe,
|
|
DKeyMonMain in 'DKeyMonMain.pas' {DlgKeyMon},
|
|
Define in 'Define.pas',
|
|
KeyMonDLL in 'KeyMonDLL.pas',
|
|
DefineKeyMon in '..\DefineKeyMon.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
mtx: TTgMutex;
|
|
begin
|
|
Guard(mtx, TTgMutex.Create(APP_MUTEX));
|
|
if mtx.MutexState <> msCreateOk then
|
|
exit;
|
|
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TDlgKeyMon, DlgKeyMon);
|
|
Application.Run;
|
|
end.
|