[alfikss]

Приветствую обитателей!
Вопрос такой. Пытаюсь отправить клик в стороннее приложение, но чего-то не слушается меня код =(
На примере пэйнта:

Код:

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;

В листбоксе список заголовков, в котором выбираю пэйнт

[Pyro]

для кликов ищи примеры mouse_event или sendinput

[Alegun]

Можно так

Код:

procedure ClickOnForm(wnd: HWND; caption: string);
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChildHandle, WM_LButtonDown, 1, 1);
SendMessage(TheChildHandle, WM_LButtonUP, 1, 1);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
wnd: HWND;
caption: string;
begin
wnd := GetTopWindow(0);

repeat
   SetLength(caption, GetWindowtextLength(wnd));
   GetWindowText(wnd, @caption[1], length(caption) + 1);
   if (trim(caption) = 'Заголовок формы') then ClickOnForm(wnd, 'Имя кнопки');
   wnd := GetNextWindow(wnd, GW_HWNDNEXT);
until wnd = 0;
end;//Drkb 02109

[angvelem]

Тему обсосали до последней косточки, выводы сделали. Код я ТС дал, далее уж как он решит, тем более нужно было всё это для игры.

[alfikss]

Сообщение от Pyro

для кликов ищи примеры mouse_event или sendinput

mouse_event не подходит, т.к. нужно что бы клики были в неактивном окне в т.ч.... С sendinput так и не разобрался.

Ну а вообще решил проблему уже.