eigenen eintrag ins ereignisprotokoll von xp?

[richard_boderich]

@ union

habe deinen code mal angepasst. er legt zwar einen eintrag im ereignislog an, jedoch traegt er die eingentliche meldung nicht ein und
ich seh nur den /auxsource text.

hab ich einen fehler drin oder funktioniert es so nicht? kann man die mc.exe auch extra bei ms downloaden ?

//quelltext

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    EventSource:string;
    EventLog:cardinal;
    Pmsg:Pansichar;

begin
EventSource := ChangeFileExt(ExtractFilename(paramstr(0)), '');
EventLog := RegisterEventSource(nil, PChar(EventSource));
if EventLog <> 0 then
begin
   PMsg := PChar('hallo das ist eine meldung von mir!');
   ReportEvent(EventLog, 2, 0, 0, nil, 0, 0, @PMsg, nil);
   DeregisterEventSource(EventLog);
end;
end;

//quelltext ende

//meldung

Code:

Ereignistyp:   Warnung
Ereignisquelle:   Project1
Ereigniskategorie:   Keine
Ereigniskennung:   0
Datum:      28.07.2006
Zeit:      19:32:06
Benutzer:      Nicht zutreffend
Computer:   CORE
Beschreibung:
Die Beschreibung der Ereigniskennung ( 0 ) in ( Project1 ) wurde nicht gefunden. Der lokale Computer verfügt nicht über die zum Anzeigen der Meldungen von einem Remotecomputer erforderlichen Registrierungsinformationen oder DLL-Meldungsdateien. Möglicherweise müssen Sie das Flag /AUXSOURCE= zum Ermitteln der Beschreibung verwenden. Weitere Informationen stehen in Hilfe und Support. Ereignisinformationen: Die Ereignisprotokolldatei ist beschädigt..

//meldung ende


richard

[edit=alcaeus]Delphi-Tags eingefuegt. Mfg, alcaeus[/edit]