Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

Мышь в консольном приложении   Найти похожие ветки 

 
Donpager   (2003-01-17 19:10) [0]

Пожайлуста подскажите как в консольном приложении сделать доступной мышь.
Я попытался воткнуть кусок кода из шестого паскаля, но ничего кроме зависания не получил...
----
Заранне спасибо за совет.


 
Anatoly Podgoretsky ©   (2003-01-17 20:43) [1]

Смотреть справку Console Application, там несколько десятков функций для поддержки консоли


 
Donpager   (2003-01-19 15:29) [2]

... конечно спасибо за совет... :)
но в хелпе Я так ни одного пимера на енту тему не нашёл... :(
поискал в других местах и нашёл следующее:

program MouseConsole;
{$APPTYPE CONSOLE}
uses Windows, SysUtils;

function GetConInputHandle : THandle;
begin
Result := GetStdHandle(STD_INPUT_HANDLE)
end;

var
IBuff : TInputRecord;
IEvent : DWord;
Continue : Bool;

begin
Continue := false;
repeat
ReadConsoleInput(GetConInputHandle, IBuff, 1, IEvent);
case IBuff.EventType of
KEY_EVENT : begin
If ((IBuff.Event.KeyEvent.bKeyDown = True) AND
(IBuff.Event.KeyEvent.wVirtualKeyCode = VK_ESCAPE))
then
Continue := true;
end;
_MOUSE_EVENT : with IBuff.Event.MouseEvent.dwMousePosition do
Writeln("Mouse coord: X= ", X, " ","Y= ", Y);
end;
until Continue;
end.



(Это на случай если ещё кому надо)



Страницы: 1 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-17025
Dmitriy_R
2003-02-25 09:40
2003.03.06
Окно внутри окна.


14-17330
Ilya
2003-02-16 21:47
2003.03.06
Милицейский беспредел !!!


1-17114
Axill
2003-02-22 10:51
2003.03.06
Как загрузить внешний шрифт из файла?


14-17308
глупый
2003-02-17 13:50
2003.03.06
Fidonet


4-17439
elf_123
2003-01-17 08:40
2003.03.06
Осложнения с хуками