Witam. Orientuje się ktoś czy w delphi możliwe jest wysyłanie kliknięć myszy do wybranej aplikacji jeżeli ona jest zminimalizowana? Próbuję to zrobić i jedyne co działa to niestety poniższy skrypt, który owszem klika myszką, ale wszędzie - nie tylko w wybranym oknie.
var
h: HWND;
begin
Randomize;
timer1.interval := Spinedit1.value + RandomRange(1, SpinEdit2.Value);
h := FindWindow(nil, 'ApkaDKZ');
SendMessage(h, WM_KEYdown, 116, 0);
SetCursorPos(SpinEdit3.value, Screen.Height-SpinEdit4.value); //set cursor to Start menu coordinates
mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0, 0, 0); //press left button
mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0); //release left button
hotkey(edit1.text);
Memo1.Lines.Add(FormatDateTime('HH:MM:SS:Z', Time));
end;
Poniższy kod niby kieruje kliknięcia do innego okna, jednak pomimo niezmiennej zadeklarowanej pozycji myszki miejsce jej kliknięcia jest ciągle inne.
var
h: HWND;
x,y: integer;
begin
h := FindWindow(nil, 'ApkaDKZ');
x := spinedit3.Value;
y := spinedit4.Value;
begin
SendMessage(H,WM_LBUTTONDOWN, 0, MakeLParam(SpinEdit3.Value, SpinEdit4.Value));
SendMessage(H,WM_LBUTTONUP, 0, MakeLParam(SpinEdit3.Value, SpinEdit4.Value));
end;
end;