Symulacja wciśnięcia przycisku po wczytaniu strony WWW

0

Mam komponent WebBrowser i chce zrobić by po wczytaniu strony wciśnięty został klawisz "k"

kod:

procedure TForm1.WebBrowser2DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 keybd_event(VkKeyScan('k'), 0, 0, 0);
end;

Problem jest taki, że chce by kliknięcie przycisku "k" dotyczyło tylko mojej aplikacji (nawet gdy jest nieaktywna) i tylko komponentu TWebBrowser.

Z góry dzięki za pomoc.

0

Po pierwsze: w tytule jest napisane "Symulacja wciśnięcia przycisku", więc o jaki przycisk na stronie chodzi ?

Po drugie: odwołaj się do okna aplikacji (wiem, że tak trzeba, ale nie wiem jak :-/ )

0

Może SendMessage i WM_KEYDOWN, WM_KEYUP, WM_CHAR pomoże

0

SendMessage(wnd, WM_CHAR, ord('K'), $C002001);

Gdzie wnd będzie uchwytem okna

WM_CHAR rodzajem komunikatu

ord('K') - przyciskiem.

wnd := FindWindow('Notepad', nil); //uchwyt

0

Dzięki za pomoc, o to właśnie chodziło :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1