Und für einen leichten Delphitouch ginge es auch so:
Delphi-Quellcode:
type
TCONSOLE_FONT_INFOEX = record
cbSize : Cardinal;
nFont : LongWord;
dwFontSize : TSmallPoint;
FontFamily : Cardinal;
FontWeight : Cardinal;
FaceName : array[1..LF_FACESIZE] of WideChar;
end;
function SetCurrentConsoleFontEx( ConsoleOutput : THandle; MaximumWindow : BOOL; const ConsoleInfo: TCONSOLE_FONT_INFOEX ) : BOOL; stdcall; external kernel32;
function GetCurrentConsoleFontEx( ConsoleOutput : THandle; MaximumWindow : BOOL; var ConsoleInfo: TCONSOLE_FONT_INFOEX ) : BOOL; stdcall; external kernel32;