Отключаем текстовый курсор в окне консоли Паскаля

Ещё по Паскалю... "а как на Паскале отключить обычный текстовый курсор в окне консоли?"

Ловите 2 "волшебных" процедурки и пример на них.

Процедура console_cursor_off; отключает курсор DOS в начале работы программы.

uses dos,crt;

procedure console_cursor_off;
var r: registers;
begin
 r.Ah:=1;
 r.Ch:=32;
 Intr($10,r)
end;

procedure console_cursor_on;
var r: registers;
begin
 r.Ah:=1;
 r.Cx:=3;
 Intr($10,r)
end;


begin
 console_cursor_off;
 clrscr;
 gotoxy (30,15);
 write ('test string');
 gotoxy (30,25);
 write ('another test');
 repeat until keypressed;
 console_cursor_on;
end.

Тип registers описан в модуле Dos, так что нужно подключить этот модуль (в других сборках это может быть модуль WinDOS).

Перед окончанием работы программы, конечно, курсор возвращается методом console_cursor_on;

Конечно, речь здесь о Borland'овском Паскале, работающем с "настоящей" консолью DOS (или "эмулированной" средствами Windows DOS-консолью), соответственно, поддерживающем прерывания DOS, а не о каком-нибудь Free Pascal.

 Добавил в "Алгоритмы"

09.12.2009, 18:48 [10592 просмотра]