Текущий архив: 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.015 c