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.