Windows EventLog kullanıı yardım

[adelphiforumz]

S.A.

Windowsun kullanmış olduğu event log tarafına bilgi yazmak istiyorum
bunu nasıl sağlıyabilirim.

İyi Çalışmalar

[SimaWB]

a.s.

Kod: Tümünü seç

function LogEvent(Source: string;EventType, Category, EventID: Integer; Str: string): LongBool;
var
  EventLogger: THandle;
  P: PChar;
begin
  EventLogger := RegisterEventSource(nil, PChar(Source));
  P := PChar(Str);
  Result := ReportEvent(EventLogger, EventType, Category, EventID, nil, 1, 0, @P, nil);
end;

Parametrelerle ilgili bilgiler için Help'ten ReportEvent fonksiyonuna bakabilirsin.