sendmessage zum Browser

[raena]

Hallo,

habe im Netz eine kleine Prozedur gefunden, mit der Zeichen zum
Notepad geschickt werden können. Dies funktioniert so weit.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fHandle: HWND;
  fText: String;
  i: Integer;
begin
  fText := 'Hello World!';
  fHandle := FindWindow('notepad', nil);
  if fHandle <>0 then
  begin
        fHandle := FindWindowEx(fHandle, 0, 'Edit', nil); // Edit Feld finden
        for i := 1 to Length(fText) do
          SendMessage(fHandle, WM_CHAR, Ord(fText[i]), 0);
  end;
end;

Nun versuche ich etwas zum Internet Browser zu senden und ändere die Zeile
fHandle := FindWindow('notepad', nil); um nach
fHandle := FindWindow('Google - Mozilla Firefox', nil);

Hat jemand ne Ahnung warum das nicht funtioniert?

Danke, Raena.