46 lines
952 B
Plaintext
46 lines
952 B
Plaintext
program WndMsgHookAs64;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Tocsg.Safe,
|
|
Tocsg.Win32,
|
|
Tocsg.Param,
|
|
Tocsg.Trace,
|
|
Tocsg.Path,
|
|
DAssistHookMain in 'DAssistHookMain.pas' {DlgAssistHookMain},
|
|
Define in 'Define.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
mtx: TTgMutex;
|
|
param: TProcessParam;
|
|
trace: TTgTrace;
|
|
begin
|
|
// Safer(mtx, TTgMutex.Create(APP_MUTEX));
|
|
// if mtx.MutexState = msAlreadyExist then
|
|
// exit;
|
|
|
|
{$IFDEF DEBUG}
|
|
Guard(trace, TTgTrace.Create(GetCurrentPath + '.log'));
|
|
{$ENDIF}
|
|
TTgTrace.t('WndMsgHookAs64 - Begin');
|
|
|
|
Guard(param, TProcessParam.Create);
|
|
if not param.IsParamOK then
|
|
begin
|
|
// TTgTrace.t('WndMsgHookAs64 - No param .. exit');
|
|
exit;
|
|
end;
|
|
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
Application.Initialize;
|
|
Application.ShowMainForm := false;
|
|
Application.MainFormOnTaskbar := false;//True;
|
|
Application.CreateForm(TDlgAssistHookMain, DlgAssistHookMain);
|
|
Application.Run;
|
|
|
|
TTgTrace.t('WndMsgHookAs64 - End');
|
|
end.
|