Перехват клавиши - Общие вопросы Delphi

KoBRaAndrey · 27.03.2010, 16:12

В таймере с интервалом 1 стоит:

Код:

if getasynckeystate(Ord(UpperCase(ShortCutToText(HotKey1.hotkey))))<>0 then showmessage('S');

В хоткей1 стоит буква S почему при нажатие нечего не происходит? Если сделать

Код:

if getasynckeystate(Ord('S')))<>0 then showmessage('S');

то все работает

W0LF · 27.03.2010, 17:39

Пробуй:

Код:

uses
  Menus;
begin
  if getasynckeystate(Ord(string(ShortCutToText(HotKey1.HotKey))[1]))<>0 then
    showmessage('S');
end;

KoBRaAndrey · 27.03.2010, 17:43

Спасибо, работает

27.03.2010, 16:12	#1
KoBRaAndrey Форумчанин Регистрация: 01.10.2009 Сообщений: 302	Перехват клавиши В таймере с интервалом 1 стоит: Код: `if getasynckeystate(Ord(UpperCase(ShortCutToText(HotKey1.hotkey))))<>0 then showmessage('S');` В хоткей1 стоит буква S почему при нажатие нечего не происходит? Если сделать Код: `if getasynckeystate(Ord('S')))<>0 then showmessage('S');` то все работает

27.03.2010, 17:39	#2
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	Пробуй: Код: `uses Menus; begin if getasynckeystate(Ord(string(ShortCutToText(HotKey1.HotKey))[1]))<>0 then showmessage('S'); end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Блокировка клавиши. Перехват 09h. Порты.	Anrih	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	3	18.09.2009 23:12
Перехват информации..	sting	Работа с сетью в Delphi	8	25.06.2009 14:11
Перехват клавиши	mustang007	Общие вопросы Delphi	6	15.04.2009 02:01
Перехват NtTerminateProcess	Terran	Win Api	4	12.12.2008 22:09
Перехват события	juden	Общие вопросы Delphi	5	23.05.2007 12:21

27.03.2010, 17:43	#3
KoBRaAndrey Форумчанин Регистрация: 01.10.2009 Сообщений: 302	Спасибо, работает