Опять МЫША

[Dic]

Windows
Черт, горю по времени синим пламенем. Помогите!
Вот для примера простейшую графическую программу нацарапал, как в ней попроще получить текущие координаты мыши и состояние ее клавиш?

Код: Выделить всё

PROGRAM PAGE1;
{$APPTYPE GUI}
USES
MOUSE,
WinCRT,
GRAPH;

VAR
I,J,Xmouse,Ymouse:INTEGER;
C:CHAR;

BEGIN

I:=0;
J:=30009;
INITGRAPH(I,J,'');

While NOT KEYPRESSED DO BEGIN
      {НУ ВОТ КАК ТУТ ПОЛУЧИТь ТЕКУЩЕЕ ПОЛОЖЕНИЕ МЫШИ?????}
      {
       Xmouse:=????????
       Ymouse:=????????
      }
      PUTPIXEL(Xmouse,Ymouse,15);
     END;
C:=READKEY;
CloseGraph;
END.

Attid: учимся форматировать

[serg_iv]

Код: Выделить всё

uses mouse;

var X, Y:word;
...
X:=GetMouseX;
Y:=GetMouseY;
...


пример со cтр. 814 Мануала RTL.

[Dic]

Увы! Этот пример работает только в текстовом режиме, да еще и только в полноэкранном варианте(только еще добавить INITMOUSE). Иначе мышка просто скользит над окном и все. А мне нужно именно в программе с единственным графическим окном. Да еще я графическое приложение не смог в полноэкранный режим переключить (задавал вопрос ниже, ответа нет ) я для этого листинг привел(даже ALT+ENTER как ни странно не работает!). В таком варианте GetMouseX/Y Возвращают 0!
В ТP под DOSом все было просто, там пользовался самодельной подпрограммкой, которая через мышиное прерывание получала что хочешь. Мне срочно нужен эквивалент
для приведенного варианта. Если заработает, напишу подпрограммку аналогичную DOS и практически без переделок все у меня пойдет.
А пока никак не могу перевести с TP на FPC кучу программ!
Да еще и с временем напряг! если все проблемы не решу, прийдется новый учебный год на TP начинать. А так хотелось перейти а то там свои проблемы.....

[Dic]

Ну ладно, мышу практически победил, оказалось, что надо просто библиотеку не MOUSE использовать, а WinMouse. И тогда хоть в оконном, хоть в полноэкранном все работает. Но вот засада очередная :
Интересно, а можно мышу ВЫКЛЮЧИТЬ? чтобы координаты выдавались, а курсор самому рисовать? Никто не разбирался с таким в Винде? Надо-бы для этого как-то доработать WinMouse что-ли.
Ну ладно это уже не горит и пока некогда заниматься. Может просто кто "в лет" подскажет?