OpenEventLog: wie lpSourceName herausfinden?

[himitsu]

Das ist egal.

Ob eine Funktion beim Öffnen des "Selben" jeweils eigene Handle liefert, oder das gleiche Handle mit einer Referenzzählung, ist ihr überlassen.
Ein unterschiedliches Handle besagt nichts darüber, was drin ist.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Winapi.Windows;

var
  SourceName: string;
  SystemEventLogHandle,
  WinDefendEventLogHandle: THandle;

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

    SourceName :='System';
    WinDefendEventLogHandle := OpenEventLog(nil, @SourceName);
    Writeln(SourceName, ': ', WinDefendEventLogHandle.ToHexString);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

System: 005C1880
System: 005BF928