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.