OpenEventLog: wie lpSourceName herausfinden?

[peterbelow]

Zitat von TiGü:

Hier kommen verschiedene Handle-Werte bei rum:

Delphi-Quellcode:

var
  SourceName: string;
  SystemEventLogHandle,
  WinDefendEventLogHandle: THandle;

begin
  try
    SourceName := 'System';
    SystemEventLogHandle := OpenEventLog(nil, @SourceName);

Der Aufruf ist falsch kodiert, @Sourcename gibt die Addresse der Variablen SourceName, nicht die des Inhalts. Versuch mal

SystemEventLogHandle := OpenEventLog(nil, PChar(SourceName));