Посылаем нажатия клавиш в другую программу (SendKeys32.pas)

[MyIE]

Мне нужно послать в одну програмку (WME) сочетание клавиш "Ctrl+Shift+E"
В самом *.pas файле есть пример вида:

'+(abc)'
или
'+abc'

Но у меня даже на данный синтаксис ругается програмка "Invalid KeyName"

Из самого SendKeys32.pas:

Supported modifiers:
+ = Shift
^ = Control
% = Alt

Пробовал варианты(послать сочетание "Ctrl+O" [открытие файла] ):

'^o'
'^O'
'^(o)'
'^(o)'
'^{o}' // хотя это заведомо неверны, но я решил опробовать ;)
'^{O}' // хотя это заведомо неверны, но я решил опробовать ;)

Ниодин из этих вариантов не оказался верным.
Знатоки, внимание, вопрос: как отослать сочетание "Ctrl+Shift+E", какой же нужно использовать синтаксис?

[W0LF]

Должно сработать:

var
   h2: HWND;
begin
   h2 := FindWindow(nil, 'заголовок программы'); // вместо nil можно еще указать class окна
     // узнать class можно с помощью программ, таких как Spy++, InqSoft Window Scanner и т.д.
   {Зажимаем клавишы}
   SendMessage(h2, WM_KEYDOWN, VK_CONTROL,0); // VK_CONTROL - Ctrl
   SendMessage(h2, WM_KEYDOWN, VK_SHIFT,0);
   SendMessage(h2, WM_KEYDOWN, Ord('E'),0);
   {Отпускаем клавишы}
   SendMessage(h2, WM_KEYUP, VK_CONTROL,0);
   SendMessage(h2, WM_KEYUP, VK_SHIFT,0);
   SendMessage(h2, WM_KEYUP, Ord('E'),0);
end;

[MyIE]

Програмке глубоко по барабану


http://www.programmersclub.ru/посылаем-нажатия-клавиш/

[MyIE]

Проблема решена следующим образом:

procedure TFormMain.StartWME;
var
h, h2: HWND;
begin
  h:=findwindow(nil, 'Кодировщик Windows Media');
  SendMessage(h, WM_SYSCOMMAND, SC_HOTKEY, h);
  SendMessage(h, WM_SYSCOMMAND, SC_RESTORE, h);
  h2:=findwindowex(h, 0, 'TEdit' ,nil);
  caption:=format('%d - %d', [h,h2]);
  SetForegroundWindow(h);
  Windows.SetFocus(h2);
  keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event(VK_SHIFT, 0, 0, 0);
  keybd_event(ord('E'), 0, 0, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(ord('E'), 0, KEYEVENTF_KEYUP, 0);
sleep(250);
if (IsWindowVisible(h) and (GetWindow (h, GW_OWNER) = 0) and (GetParent(h) = 0))
then PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;