Problem mit dem Readeventlog

[Bernhard Geyer]

Probier mal folgens aus bzw. welche Fehlermeldung kommt hier:

Code:

  event:= OpenEventLog(nil, 'Application'); 
  if event = 0 then
  begin
    RaiseLastOSError;
  end;