Ereignisprotokoll per E-mail senden

[tobiasw]

hi

ich möchte gerne das mein Prog das Ereignisprotokoll per E-Mail an mich sendet.

Der folgende Code zeigt wie ich das Ereignisprotokoll löschen kann

Delphi-Quellcode:

function PE_ClearEventLogNow(pEventLogKey: PChar):Integer;
 var
  hLog: THandle;
  NumberOfRecords: DWord;
begin
  Result := -1;

  {*** Eventlog oeffnen ***}
  hLog   :=  OpenEventLog(NIL, pEventLogKey);
  if hLog <> INVALID_HANDLE_VALUE then
  begin
    {*** Anzahl der Eintraege ermitteln ***}
    GetNumberOfEventLogRecords(hLog, NumberOfRecords);

    {*** Eintraege loeschen! ***}
    if not ClearEventLog(hLog, NIL) then 
    begin
      CloseEventLog(hLog);
      Exit;
    end;

    {*** EventLog schliessen ***}
    CloseEventLog(hLog);
    Result := 0;
  end;
end;

Wie kann ich das am besten realisieren

Gruß