Summary Table
Categories |
Total Count |
PII |
0 |
URL |
0 |
DNS |
0 |
EKL |
0 |
IP |
0 |
PORT |
0 |
VsID |
0 |
CF |
0 |
AI |
0 |
VPD |
0 |
PL |
0 |
Other |
0 |
File Content
unit uGMV_WindowsEvents;
interface
uses
SvcMgr
, uGMV_Common
;
var
MEV: TEventLogger;
procedure WindowsLogLine(aLine: String);
implementation
uses
Windows
, SysUtils
;
procedure WindowsLogLine(aLine: String);
begin
if CmdLineSwitch(['/NOLOG','/nolog']) then
Exit;
try
MEV.LogMessage(aLine,EVENTLOG_SUCCESS,0,1);
except
end;
end;
initialization
MEV := TEventLogger.Create('zzVitals');
finalization
FreeAndNil(MEV);
end.