Also, wenn jetzt keinen Fehler drin ist. Müsste das, die richtige Lösung für das Problem sein.
@Lukie Das ist genau mein Vorhaben
Habe inzwischen die Lösung über die
MSDN rausgefunden! Danke für die Hilfe!
Delphi-Quellcode:
var
lpScreenInfo: _CONSOLE_SCREEN_BUFFER_INFO;
DefaultValues: WORD;
hOutput: THandle;
begin
Try
hOutput := GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleScreenBufferInfo(hOutput ,lpScreenInfo);
DefaultValues := lpScreenInfo.wAttributes;
SetConsoleTextAttribute(hOutput , 0 + 14);
Write('
Hallo Delphigemeinde!');
SetConsoleTextAttribute(hOutput , DefaultValues);
Except
On E:
Exception Do
Writeln(E.Classname, '
: ', E.
Message);
End;
End;