[MrDiG]

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

А вот этот кодя пробовал, действительно клик отправляется в неактивное окно (в свернутое нереально), правда через раз, и приложение все равно пытается стать активным.

Ну вот продедура, которая отправляет в свёрнутое окно блокнота

Код:

procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND; i: Integer; s: string;
begin
wnd:=FindWindow('notepad', nil);
if wnd<>0 then
    begin
    wnd:=FindWindowEx(wnd, 0, 'Edit', nil);
    s:='Hello';
    for i:=1 to Length(s) do
        SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
    // Simulate Return Key.
    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
    // Simulate Space.
    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
    end;
end;

Только что проверил - работает. И активным стать не пытается.