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;