Project1.pl - Jak nacisnąć Button, znajdujący się na formie innego programu?

Jak nacisnąć Button, znajdujący się na formie innego programu?

Napisał: Berl

niedziela, 30 październik 2005

Aby nacisnąć Button w jakimś innym programie, należy użyć funkcji SendMessage. Argumenty wywołania tej funkcji to :

1. Uchwyt okna, do którego chcemy przesłać komunikat (w naszym przypadku uchwyt Buttona);
2. Nazwa komunikatu;
3. Pierwszy parametr komunikatu;
4. Drugi parametr komunikatu;

Button jest zazwyczaj obiektem podrzędnym jakiegoś innego obiektu (najczęściej formy). Do odnalezienia jego uchwytu służy funkcja FindWindowEx. Jako argumenty w wywołaniu podaje się :

1. Uchwyt rodzica;
2. Uchwyt okna podrzędnego;
3. Wskaźnik do nazwy klasy szukanego Buttona (albo czegokolwiek innego);
4. Wskaźnik do nazwę Buttona (w przypadku Buttona jest to jego właściwość Caption);

Oczywiście najpierw musimy mieć uchwyt rodzica, czyli formy. Do znalezienia tego uchwytu słuzy funkcja FindWindow, której argumenty to :

1. Wskaźnik do klasy okna;
2. Wskaźnik do nazwy okna;

Całość wygląda tak :

 
var
    Handle : HWND;
begin
    Handle := FindWindow('TForm1', nil);
    Handle := FindWindowEx(Handle, 0, 'TButton', 'Button1');
    SendMessage(Handle, WM_LBUTTONDOWN, 0, 0);
end;

Komentarze

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

wstecz		dalej »

WRÓĆ