Ich habe auch mal ChatGPT gefragt, da ich kein Linux habe kann ich es nicht testen aber die definition ist zu Deiner Unterschiedlich
Delphi-Quellcode:
program JournalSendExample;
{$APPTYPE CONSOLE}
uses
SysUtils, libsystemd;
function _sd_journal_send(format: PAnsiChar; args:
array of const): Integer;
cdecl;
external '
systemd'
name '
sd_journal_send';
procedure LogToJournal(
const message:
string);
begin
_sd_journal_send('
MESSAGE=%s', [
message]);
end;
var
input:
string;
begin
Write('
Enter a log message: ');
Readln(input);
try
LogToJournal(input);
Writeln('
Log message sent to journal.');
except
on E:
Exception do
Writeln('
Error sending log message: ', E.
Message);
end;
Readln;
end.