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 :-D an der Ressourcendatei saß ich am längsten...

Gruß peanut.

[Luckie]

Zitat:

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 :-D

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 :shock:

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

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.)