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
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.