eigenen eintrag ins ereignisprotokoll von xp?

[Union]

Wenn man auf individuelle Texte verzichten kann, geht es auch noch kürzer:

Delphi-Quellcode:

EventSource := ChangeFileExt(ExtractFilename(paramstr(0)), ''); 
EventLog := RegisterEventSource(nil, PChar(EventSource));
if EventLog <> 0 then
begin
   PMsg := PChar('Meldung im Eventlog');
   ReportEvent(EventLog, 1, 0, 0, nil, 1, 0, @PMsg, nil);
   DeregisterEventSource(EventLog);
end;