Форум: "WinAPI";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизМышь в консольном приложении Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c