Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

KeyDown [D6, WinXP]

kex86 © (2002-11-27 13:55:00)
Как отлавливать нажатия клавиш, даже когда программа консольная и не активна?

asmith (2002-11-29 14:27:00) [1]
Вот пример обработки консольного ввода безо всяких окон:

{$APPTYPE CONSOLE}
program ConsoleInput;

uses
Windows;

var
hInput: THandle;
arrInputRecs: array[0..9] of TInputRecord;
dwCur, dwCount: DWORD;
cCur: Char;
coorCur: TCoord;

begin
hInput := GetStdHandle(STD_INPUT_HANDLE);
while True do
begin
ReadConsoleInput(hInput, arrInputRecs[0], 10, dwCount);
for dwCur := 0 to dwCount - 1 do
case arrInputRecs[dwCur].EventType of
KEY_EVENT: with arrInputRecs[dwCur].Event.KeyEvent do
begin
cCur := AsciiChar;
if cCur = "" then
if bKeyDown then
WriteLn("Unprintable key pressed.")
else
Writeln("Unprintable key released.")
else
if bKeyDown then
WriteLn("Pressed ", cCur, " ", wRepeatCount, " times.")
else
WriteLn("Released ", cCur, " key.");
end;

{*** Delphi has renamed MOUSE_EVENT to avoid a conflict ***}
{*** with a windows function mouse_event() ***}
_MOUSE_EVENT: with arrInputRecs[dwCur].Event.MouseEvent do
begin
coorCur := dwMousePosition;
if dwEventFlags = 0 then
WriteLn("Button Pressed at ", coorCur.X, ",", coorCur.Y);
end;
end;
end;
end.

BoxTer (2002-11-29 12:07:00) [2]
делай hook. Как? - не спрашивай - не скажу. Ищи на форуме - тьма..

kex86 (2002-11-29 11:56:00) [3]
А если научно-популярней?

Song (2002-11-27 15:51:00) [4]
Консольная - нужно окно (можно скрытое) и обработчка очереди сообщений для него. После этого - RegisterHotKey()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »