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

Вниз

Как отловить нажатие комбинации клавиш в системе?   Найти похожие ветки 

 
DELORAC ©   (2005-09-27 16:50) [0]

Как отловить нажатие комбинации клавиш в системе?
Если не очень сложно, помогите с кодом, плиз...
Заранее спасибо!


 
ANB ©   (2005-09-27 17:00) [1]

Хук придется ставить на клавиатуру. Затем ловить кнопки по одной и проверять на комбинацию. Читать статью на этом сайте. Когда поймешь и наступишь на грабли из примера - приходи сюда, поправим.


 
ShiFT   (2005-09-28 06:37) [2]

> DELORAC ©   (27.09.05 16:50)
> Как отловить нажатие комбинации клавиш в системе?
> Если не очень сложно, помогите с кодом, плиз...


тебе твои комбинации клавиш отловить надо??
если да то:
 protected
   procedure hotykey( var msg: TMessage); message WM_HOTKEY;
.....
var
 id : Integer;
.....
procedure TForm1.hotykey(var msg: TMessage);
begin
 if msg.WParam = id then ShowMessage("Ctrl + Q!");
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 id := GlobalAddAtom( "hotkey");
 RegisterHotKey( handle, id, mod_control, 81);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey( handle, id);
end;


если нет то Хук.


 
DELORAC ©   (2005-09-28 10:28) [3]

Да, мои комбинации клавиш...
Спасибо, разобрался!



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

Форум: "WinAPI";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.013 c
2-1131836955
Brad
2005-11-13 02:09
2005.11.27
Когда показывать скроллбар.


14-1131367045
ZOOooo
2005-11-07 15:37
2005.11.27
Полезный софт...


14-1131291947
Piter
2005-11-06 18:45
2005.11.27
Какие чипсеты поддерживают DDR-2?


2-1131269224
SarDoX
2005-11-06 12:27
2005.11.27
Tchart


14-1131017255
Falcon(TFsoft)
2005-11-03 14:27
2005.11.27
Button1Click at runtime....





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский