Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

KeyDown   Найти похожие ветки 

 
kex86   (2002-11-27 13:55) [0]

Как отлавливать нажатия клавиш, даже когда программа консольная и не активна?


 
Song   (2002-11-27 15:51) [1]

Консольная - нужно окно (можно скрытое) и обработчка очереди сообщений для него. После этого - RegisterHotKey()


 
kex86   (2002-11-29 11:56) [2]

А если научно-популярней?


 
BoxTer   (2002-11-29 12:07) [3]

делай hook. Как? - не спрашивай - не скажу. Ищи на форуме - тьма..


 
asmith   (2002-11-29 14:27) [4]

Вот пример обработки консольного ввода безо всяких окон:

{$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.



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

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
1-28119
mila
2002-11-28 16:03
2002.12.09
как написать проверку


3-27849
Hex
2002-11-20 23:16
2002.12.09
MDW и MDB


7-28314
KPV-10k
2002-10-07 22:02
2002.12.09
Вырубить монитор


4-28348
DDS
2002-10-28 11:05
2002.12.09
Как поставить ассоциацию TXT файлов намою прогу.


3-27893
robi
2002-11-21 18:14
2002.12.09
Контекстное меню в DBGride





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский