Собственно САБЖ, не понимаю, как управлять WMC, стандартный способ не канает. Окно находит верно, Showwindow отрабатывает а послать сочетание клавиш не получается
| Код |
wnd:=findwindow('eHome Render Window',nil);
if wnd<>0 then
begin
Showwindow(wnd,SW_RESTORE);
ConvKey := OemKeyScan(VK_DOWN); //пробуем послать например VK_DOWN
ScanCode := ConvKey and $000000FF or $FF00;
vKey := VK_DOWN;
wParam := vKey;
lParam := longint(ScanCode) shl 16 or 1;
SendMessage(wnd, WM_KEYDOWN, vKey, lParam);
SendMessage(wnd, WM_CHAR, vKey, lParam);
lParam := lParam or $C0000000;
SendMessage(wnd, WM_KEYUP, vKey, lParam);
end;
|
|