Software guru, Inc

Written by:
12/13/2012 7:17 PM 

Delphi Write to Event Log

uses Windows;

...

const

SDefaultSource = 'ELog';

...

// TEventLogger is not used because the current RTL supports only local servers

function WriteEventLog(AEntry: string;

AServer: string ='';

ASource: string = SDefaultSource;

AEventType: word = EVENTLOG_INFORMATION_TYPE;

AEventId: word = 0;

AEventCategory: word = 0

): boolean;

var

EventLog: integer;

P: Pointer;

begin

Result := False;

P := PWideChar(AEntry);

if Length(AServer) = 0 then // Write to the local machine

EventLog := RegisterEventSource(nil, PWideChar(ASource))

else // Write to a remote machine

EventLog := RegisterEventSource(PWideChar(AServer),

PWideChar(ASource));

if EventLog <> 0 then

try

ReportEvent(EventLog, // event log handle

AEventType, // event type

AEventCategory, // category zero

AEventId, // event identifier

nil, // no user security identifier

1, // one substitution string

0, // no data

@P, // pointer to string array

nil); // pointer to data

Result := True;

finally

DeregisterEventSource(EventLog);

end;

Trackback Print

Tags: Delphi , Eventlog

Categories: Development

Location: Blogs Jerry Langland's Blog

Your name:
Your email:
	(Optional) Email used only to show Gravatar.
Your website:
Title:
Comment:
Security Code Enter the code shown above in the box below
Add Comment   Cancel