IsConsole ?
Bzw.
{$IFDEF CONSOLE}
, wenn die Anwendung als Console
{$APPTYPE CONSOLE}
kompiliert wird.
Für WriteLn einfach die Fehlerbehandlung deaktivieren, also
{$I-}
oder verständlicher
{$IOCHECKS OFF}
,
oder ohne jegliche Fehlerprüfung selber schreiben.
Delphi-Quellcode:
program Project9;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
Winapi.Windows;
type
OEMString =
type AnsiString(CP_OEMCP);
// wenn es nur ASCII ist, dann geht auch AnsiString;
var
S: OEMString;
H: THandle;
X: Cardinal;
begin
H := GetStdHandle(STD_OUTPUT_HANDLE);
S := '
hallo'#10;
WriteFile(H, S[1], Length(S), X,
nil);
WriteFile(H, S[1], Length(S), X,
nil);
Sleep(5000);
end.