blob: b921f84b602fc012084ac7c4faf4672c4b5ddf9d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$mode objfpc}
{$h+}
program testelcmd;
uses eventlog,sysutils;
Var
E : TEventType;
begin
With TEventLog.Create(Nil) do
Try
Identification:='Test eventlog class';
RegisterMessageFile('');
Active:=True;
For E:=etInfo to etDebug do
Log(E,'An event log message of type '+EventTypeToString(E));
finally
Free;
end;
end.
|
