Приветствую обитателей!
Вопрос такой. Пытаюсь отправить клик в стороннее приложение, но чего-то не слушается меня код =(
На примере пэйнта:
Код:
procedure TForm1.Button4Click(Sender: TObject);
var
h:thandle;
begin
h:=findwindow(nil, PChar(listbox1.Items[listbox1.ItemIndex]));
if h<>0 then showmessage('+') else showmessage('-');
SetForegroundWindow(h);
sleep(1000);
sendmessage(H, WM_LBUTTONDOWN, MK_LBUTTON, MakeLong(600, 600));
sleep(1000);
sendmessage(H, WM_LBUTTONUP, MK_LBUTTON, MakeLong(600, 600));
end;
В листбоксе список заголовков, в котором выбираю пэйнт