27 lines
526 B
Plaintext
27 lines
526 B
Plaintext
program WndMsgHook;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Sunk.Win32,
|
|
Sunk.Smart,
|
|
DMainHook in 'DMainHook.pas' {DlgMainHook},
|
|
CtrlWndActiveHook in 'CtrlWndActiveHook.pas',
|
|
Define in 'Define.pas';
|
|
|
|
{$R *.res}
|
|
var
|
|
mtx: TSunkMutex;
|
|
|
|
begin
|
|
// Safer(mtx, TSunkMutex.Create(APP_MUTEX));
|
|
// if mtx.MutexState = msAlreadyExist then
|
|
// exit;
|
|
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TDlgMainHook, DlgMainHook);
|
|
Application.Run;
|
|
end.
|