核心提示：{Error:1 Warn:2 Information:4 AuditSuccess:8 AuditFailure:16}procedure MyReportEvent(AMsg: String; A...
{Error:1 Warn:2 Information:4 AuditSuccess:8 AuditFailure:16}procedure MyReportEvent(AMsg: String; AType: Word);
var
h: THandle;
pMsg: PChar;
begin
h := 0;
try
try
h := OpenEventLog(nil, 'Domain Mapper');
pMsg := pChar(AMsg);
ReportEvent(h, AType, 0, 0, nil, 1, 0, @pMsg, nil);
except
end;
finally
if h <> 0 then
CloseEventLog(h);
end;
end;
