Forum: Win32/Win64 API (native code)
Delphi
by Hobbycoder,
8. Nov 2017
Das gleiche Ergebnis. In muss also irgendwo einen logischen Fehler gemacht haben. Ich weiß nur nicht wo. Ich such mir schon den ganzen Tag nen Wolf. Habe mittlerweile so ziemlich alle Seiten gelesen, die ich im Internet finden konnte, wo das Thema auch nur ansatzweise angerissen wird. Ich komm nicht dahinter.
Ich werde gleich noch mal meine ganzen MessageID's fortlaufend durchnummerieren mit 1...
Forum: Win32/Win64 API (native code)
Delphi
by Hobbycoder,
8. Nov 2017
Vielleicht bin ich zu blöd, aber ich krieg's nicht hin.
Vielleicht hab ich ja irgendwo einen Denkfehler oder sowas wie das worauf Sebastian mich hingewiesen hat.
Nochmal meine komplette mc-Datei:
SeverityNames=(Success=0x0:STATUS_SEVERITY_SUCCESS
Informational=0x1:STATUS_SEVERITY_INFORMATIONAL
Warning=0x2:STATUS_SEVERITY_WARNING
...
Forum: Win32/Win64 API (native code)
Delphi
by Hobbycoder,
8. Nov 2017
1. Ich vermute (habe die Funktion noch nie Verwendet) das hängt mit deinen Parametern zusammen. Du übergibst der Funktion ja die ID "4".
3. Du überschreibst bei deiner "LizenzMessage" immer den Wert, anstatt sie zusammen zu hängen. Funktionieren kann es zB so:
LizenzMessage:='Seriennummer:'+#13#10;
LizenzMessage:= LizenzMessage + 'Registriert für:'+#13#10;
LizenzMessage:=...
Forum: Win32/Win64 API (native code)
Delphi
by Hobbycoder,
8. Nov 2017
Das ist keine eigene, sondern die von TService.
Forum: Win32/Win64 API (native code)
Delphi
by Hobbycoder,
8. Nov 2017
Hi,
ich versuch's noch mal mit passenderem Titel.
Ziel ist es, mit einer ServiceApplication Einträge in das Eventlog von Windows zu schreiben, ohne dass die Meldung "Beschreibung für die Ereignis-ID "x" aus der Quelle "y" wird nicht gefunden....." kommt.
Wie das geht hat Luckie in seinem Tutorial sehr gut beschrieben.
Doch irgendwie bekomme ich es nicht hin, oder mache irgendwo einen...