Servus,
habe hier im Forum irgend wann mal ein Tool gefunden welches die Ereignissanzeige überwacht.
Soweit so gut.
Hier der Code
Delphi-Quellcode:
//...
ret := WaitForMultipleObjects(fEventLogCount, @events, False, 1000);
if ret <> WAIT_TIMEOUT then
begin
for i := 0 to fEventLogCount - 1 do
if GetNumberOfEventLogRecords(fLogsHandle[i], totnumevents[i]) then
if totnumevents[i] > fEventCounts[i] then //!!!
begin
//Neuen Eintrag auslesen
//...
Wenn ein Eintrag erstellt wurde, springt die anwendung immer in die IF bei <> Timeout,
also bekommt er jeden Eintrag mit.
Nur bei !!! funktioniert es nicht immer, als ob der irgend wie noch Zeit braucht
oder sonst was. Also er zeigt nicht immer an das ein neuer Eintrag geschreiben wurde, obwohl er immer in die if springt.
mfg