eigenen eintrag ins ereignisprotokoll von xp?

[peanut]

@Luckie:

Toller Artikel - Mensch, hätte ich den vor 2 Monaten schon gehabt, dann hätte ich mir viel Gegrübel sparen können an der Ressourcendatei saß ich am längsten...

Gruß peanut.

[Luckie]

Zitat von peanut:

Toller Artikel - Mensch, hätte ich den vor 2 Monaten schon gehabt, dann hätte ich mir viel Gegrübel sparen können

Danke. Und geanu das ist der Grund, warum ich die Artikel und Tutorials schreibe, damit der nächste es etwas einfacher hat.

Und einfach mal öfters vorbeigucken http://artikel.michael-puff.de

[richard_boderich]

naja ich muss doch dann vor jeden event die resource aendern in meiner datei oder?

richard

//die demoanweindung lauft bei mir nicht. er sagt rpc server nicht verfuegbar

[Chewie]

Zitat:

Wenn deine Meldung vollständig anwendungsbestimmt sein soll, heißt dein Nachrichtentext eben nur %1.

[richard_boderich]

wenn ich aber bei jedem eintrag einen anderen text haben will?

[Chewie]

Das, was oben steht, ist eine Antwort auf deinen Post, auch wenn die Forensoftware da offentsichtlich anderer Meinung ist

[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]

[Luckie]

Zitat von richard_boderich:

//die demoanweindung lauft bei mir nicht. er sagt rpc server nicht verfuegbar

Hast du im Code auch den Computernamen angepasst? Und den nötigen Zweig in die Registry erzeugt? (Reg-Datei liegt bei.)