Moduł CRT

0

Znalazłem spis procedur i funkcji modułu CRT
http://www.sources.ru/pascal/tmt/help/crt_proc_and_func.htm
ale niektóre z nich nie działają. Chodzi mi o HideCursor i ShowCursor, kompilator ( używam dev-pascala ) wywala że nie znaleziono procedur. Coś nie tak z kompilatorem czy tych procedur CRT po prostu nie posiada??

0

Z chowaniem i pokazywaniem kursora sobie poradziłem. Napisałem taki moduł

unit CursorControl;

interface

procedure HideCursor;
procedure ShowCursor;

implementation

uses windows;

procedure HideCursor;
var lpCursor: CONSOLE_CURSOR_INFO ;
begin
 lpCursor.bVisible := false;
 lpCursor.dwSize := 20;
 SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE),lpCursor);
end;

procedure ShowCursor;
var lpCursor: CONSOLE_CURSOR_INFO ;
begin
 lpCursor.bVisible := true;
 lpCursor.dwSize := 20;
 SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE),lpCursor);
end;

end.

Może komuś sie przyda ;-)
Ale mam jeszcze jedno pytanie - Czy da się jakoś zmienić napis na pasku tytułowym programu ( konsoli ), standardowo jest tam scieżka do programu, chciałbym tam umieścić własny tekst.

1 użytkowników online, w tym zalogowanych: 0, gości: 1