Комбинация клавиш keybd_event

[seniks]

Как реализовать в своей виртуальной клавиатуре комбинацию клавиш?
Нажимаю на Шифт+Кнопка А либо Капс Лок и Ctrl+Z(как примеры)
Чтобы одна клавиша зажималась, потом вторую нажимаешь = например А(большая) и потом сразу же шифт отпускался

[ratttx6]

что то вроде этого - только вкЭскейп замени на другой код клавиши.
keybd_event(VK_ESCAPE, 0, 0, 0);

keybd_event(ord('A'), 0, 0, 0);
sleep(1000)
keybd_event(ord('A'), 0, KEYEVENTF_KEYUP, 0);

keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0);

[kropotkina-alice]

Нажатие трех клавиш:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if ((getasynckeystate(VK_CONTROL)<>0) and (getasynckeystate(Ord('C'))<>0) and (getasynckeystate(Ord('V'))<>0)) then
Label2.Caption:='Нажаты CTRL+C+V' else
Label2.Caption:='';
end;