Консоль

← →
b-Ars © (2002-11-06 12:19) [0]

Здравствуйте господа! Не получается корректно работать с консолью. Сразу не разобрался, а нужно срочно, поэтому прошу вас привести пример аналогов паскалевских SetText(Backgroung)Color и GotoXY, или, если не сложно приведите примерчик: посередине окна консоли на белом фоне черными буквами надпись "Hello Word" :). Заранее спасибо! Да, и ещё: можно ли перехватить закрытие консоли пользователем?

← →
MBo © (2002-11-06 12:35) [1]

вот очистка и gotoxy, остальное сам найдешь по хелпу, начав с приведенных функций
h := GetStdHandle(STD_OUTPUT_HANDLE);
Size := GetLargestConsoleWindowSize(h);
Origin.X := 10;
Origin.Y := 10;
FillConsoleOutputCharacter(H, " ", Size.X * Size.Y, Origin, Written);
SetConsoleCursorPosition(H, Origin);
writeln("Hello!");

← →
b-Ars © (2002-11-06 12:36) [2]

>MBo © (06.11.02 12:35)
Ок, большое спасибо!

← →
b-Ars © (2002-11-10 13:47) [3]

>MBo © (06.11.02 12:35)
Хм, тока вот какой тип у Written? Он ругается на LPDWORD, он в Help написано так же, как быть?

← →
Anatoly Podgoretsky © (2002-11-10 13:54) [4]

Какой LPDWORD у WriteLn, не работает он с таким типом, только простые базовые типы

← →
b-Ars © (2002-11-10 13:56) [5]

>Anatoly Podgoretsky © (10.11.02 13:54)
FillConsoleOutputCharacter(Con.ConHandle, " ", Con.ConSize.X * Con.ConSize.Y, Origin, NumWritten)

Какой тип у NumWritten?

Written: DWord;

Всем спасибо, заработало исключительно с типом Cardinal

Консоль Найти похожие ветки