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