mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-15 03:38:25 +02:00
23 lines
386 B
ObjectPascal
23 lines
386 B
ObjectPascal
program testlog;
|
|
|
|
uses systemlog,sysutils;
|
|
|
|
procedure dotest;
|
|
|
|
var i : longint;
|
|
prefix : ansistring;
|
|
|
|
begin
|
|
i:=GetProcessID;
|
|
prefix:=format('testlog[%d] ',[i]);
|
|
// prefix will be prepended to every message now.
|
|
openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
|
|
for i:=1 to 10 do
|
|
syslog(log_info,'This is message number %d'#10,[i]);
|
|
prefix:='';
|
|
end;
|
|
|
|
begin
|
|
dotest;
|
|
end.
|