Einträge ins Eventlog

[Klaus01]

Hallo Luckie,

vielleicht kann Dir das weiterhelfen: http://groups.google.de/group/comp.l...9c458596e135d4

Grüße
Klaus

[Luckie]

Ich habe das jetzt ausprobiert:

Delphi-Quellcode:

var
  el: TEventLog;
begin
  el := TEventLog.Create(nil);
  try
    el.Open('Application');
    el.Report(EVENTLOG_INFORMATION_TYPE, 'test');
    el.Close;
  finally
    FreeAndNil(el);
  end;

Aber da erscheint auch kein Einztag im EventLog.

[Klaus01]

Das hilft Dir jetzt nicht weiter, aber bei mir tut es.
OS = w2k SP4

Grüße
Klaus

[Luckie]

Genau der selbe Aufruf, wie ich ihn gepostet habe? Ich habe hier Windows XP SP2. Dann muss es da noch irgendetwas zu beachten geben. Nur was?

[Klaus01]

Ja, habe Deinen Aufruf einen Button zugeordnet.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Eventlog, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  el: TEventLog;
begin
  el := TEventLog.Create(nil);
  try
    el.Open('Application');
    el.Report(EVENTLOG_INFORMATION_TYPE, 'test');
    el.Close;
  finally
    FreeAndNil(el);
  end;
end;

end.

Sonst habe ich nichts weiteres einstellen müßen.

Grüße
Klaus

[Luckie]

Probier doch mal den Code im Anhang bitte aus. In der Exe sind auch die nötigen Ressourcestrings enthalten. Du musst allerdings dann auchg erstmal die Reg-Datei mit den nötigen Informationen in die Registry importieren.

[Khabarakh]

Tja, bei mir funktioniert dein Programm .

Win XP Home SP2

[Luckie]

Steht da auch ein richtiger Text drinne? Es sollte drinne stehen:

Zitat:

Testeintrag von Test.

Eventuell muss man die Quelle durch 'Demo' ersetzen.

Könnte jemand bitte auch mal den auskommentierten Code probieren?

Was kann das sein?

[Luckie]

Ich werde irre. Als Administrator geht es. Dabei hatte ich das Programm schon mit "Ausführen als..." gestarte, um es so zu probieren. Und das Eventlog hatte ich auch als Administrator geöffnet, aber nie was gesehen. Jetzt hab eich mich richtig als Admin angemeldt und was sehe ich? Dutzende von meinen Testeinträgen. Ergo hat es als eingeschränkter Benutzer auch schon geklappt, aber irgendwie werden die Einträge nicht korrekt angezeigt, wenn man das EventLog SnapIn mit "Ausführen als..." als Administrator öffnet. Hmpf.

Nachtrag:
Es geht auch, wenn man als eingeschränkter Benutzer eingeloggt ist. Man sieht die Einträge aber nicht, wenn man die Ereignisanzeige mit runas (Administrtorenkonto) öffnet. Öffnet man sie normal, sieht man auch seine Einträge. OK, es funktioniert jetzt also alles bestens. Danke für eure Hilfe. Ich werde das mal alles in einem Artikel zusammenfassen.

[RalfOne]

Hallo zusammen,

die Ereigniseinträge kriege ich auch hin, jedoch würde ich gerne eine eigene Gruppe haben. Als Beispiel: "MeinProgramm".
Weiß jmd. wie ich das realisieren kann.

Ich habe mal gelesen, dass es keine WINAPI dafür geben soll, und man es nur unter NET machen kann.....stimmt das?


Grüße

Ralf