Hi,
Delphi-Quellcode:
LizenzMessage:='Lizenzinformationen:'+#13#10;
LizenzMessage:='Seriennummer:'+#13#10;
LizenzMessage:='Registriert für:'+#13#10;
LizenzMessage:=Lizenz.Firma+#13#10;
LizenzMessage:=Lizenz.Vorname+' '+Lizenz.Name+#13#10;
LizenzMessage:=Lizenz.Strasse+#13#10;
LizenzMessage:=Lizenz.PLZ+' '+Lizenz.Stadt+#13#10;
LizenzMessage:='Telefon: '+Lizenz.Telefon+#13#10;
LizenzMessage:='E-Mail: '+Lizenz.EMail+#13#10;
LizenzMessage:='Seriennr: '+Lizenz.SerienNr+#13#10;
LogMessage(LizenzMessage, EVENTLOG_INFORMATION_TYPE, 1, 4);
Zusammenfassen noch mal die 3 Probleme:
1. Die Meldung "Die Beschreibung für die Ereignis-ID...." sollte nicht kommen
2. "Das
Handle ist ungültig" sollte nicht kommen
3. Vom meinen übergebenen String wird nur die letzte Zeile geschrieben. Ich möchte aber mehr ausgeben.
Zu deinen Problemen:
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:
Delphi-Quellcode:
LizenzMessage:='Seriennummer:'+#13#10;
LizenzMessage:= LizenzMessage + 'Registriert für:'+#13#10;
LizenzMessage:= LizenzMessage + Lizenz.Firma+#13#10;
LizenzMessage:= LizenzMessage + Lizenz.Vorname+' '+Lizenz.Name+#13#10;
LizenzMessage:= LizenzMessage + Lizenz.Strasse+#13#10;
LizenzMessage:= LizenzMessage + Lizenz.PLZ+' '+Lizenz.Stadt+#13#10;
LizenzMessage:= LizenzMessage + 'Telefon: '+Lizenz.Telefon+#13#10;
LizenzMessage:= LizenzMessage + 'E-Mail: '+Lizenz.EMail+#13#10;
LizenzMessage:= LizenzMessage + 'Seriennr: '+Lizenz.SerienNr+#13#10;
Zu 2. kann ich leider nichts sagen.