Имитация нажатия TShortCut

[klon_008]

подскажите как симитировать нажатие сочетания клавиш заданных юзером в THotKey? С нажатием клавиши все просто. Вошел в ступор на Modifiers.. .

[min@y™]

код давай, где попытка имитации.

[kropotkina-alice]

Сообщение от klon_008

подскажите как симитировать нажатие сочетания клавиш заданных юзером в THotKey?

Например, имитируем нажатие ALT+A:

keybd_event(vk_menu, 0, 0, 0);
keybd_event($41, 0, 0, 0);
keybd_event(vk_menu, 0, KEYEVENTF_KEYUP, 0);
keybd_event($41, 0, KEYEVENTF_KEYUP, 0);

[klon_008]

Сообщение от kropotkina-alice

Например, имитируем нажатие ALT+A:

keybd_event(vk_menu, 0, 0, 0);
keybd_event($41, 0, 0, 0);
keybd_event(vk_menu, 0, KEYEVENTF_KEYUP, 0);
keybd_event($41, 0, KEYEVENTF_KEYUP, 0);

все верно, но как мне из компонента THotKey вытащить то что в нем есть vk_menu

[Stilet]

var key:TShortCut;
...
Key:=HotKey1.HotKey;

А Key это set типа Word, так что потом его и подставляй.

[klon_008]

Сообщение от Stilet

var key:TShortCut;
...
Key:=HotKey1.HotKey;

А Key это set типа Word, так что потом его и подставляй.

Да. я это понимаю, но вот модификаторы от HotKey не применяются.

Например: в компоненте я задал сочетание клавиш (Shift+1) - по идее должен подставиться символ "!"...

При нажатии на кливишу "0" должно считаться комбинация из THotKey и воспроизвестись.

Если я подставляю HotKey1.HotKey то имитируется нажатие только "1" без Модификатора Shift.

Сейчас подразобрался малех, но возникла другая маленько проблема...

procedure ShortCutToVirtualKey(HotKey: TShortCut; var Key : Word; var Modifiers: Uint);
var
  Shift: TShiftState;
begin
  ShortCutToKey(HotKey, Key, Shift);
  Modifiers := 0;
  if (ssShift in Shift) then
  Modifiers := Modifiers or VK_SHIFT;
  if (ssAlt in Shift) then
  Modifiers := Modifiers or VK_MENU;
  if (ssCtrl in Shift) then
  Modifiers := Modifiers or VK_CONTROL;
end;

procedure retry(HotKey:THotKey);
var
  Key : Word;
  Modifiers: UINT;
  Keys: TShiftState;
  I: integer;
begin
  ShortCutToVirtualKey(HotKey.HotKey, Key, Modifiers);
  keybd_event(Modifiers, 0,0,0);
  keybd_event(HotKey.HotKey, 0,0,0);
  keybd_event(HotKey.HotKey, 0,KEYEVENTF_KEYUP,0);
  keybd_event(Modifiers, 0,KEYEVENTF_KEYUP,0);
end;

теперь т.к. Shift - множество то Модификаторы теряют последовательность...
Ctrl+Shift+A имитирует теперь Shift+Ctrl+A