Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Июл

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

Posted by files under Файлы

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

Код:


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;

ссылка на форум

Скачать