Das Problem bei Notepad wird sein, das du die Tasten an das Hauptfenster sendest und diese Die Tasten nicht an das "Memo" weitergibt... versuch für Notepad mal folgendes
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var hNotepad,hMemo,I:Integer;
begin
hNotepad:=FindWindow(nil,'Unbenannt - Editor');
If (hNotepad<>0) then begin
hMemo:=FindWindowEx(hNotepad,0,'Edit',nil);
if hMemo<>0 Then begin
For I:=1 to Length(Edit1.Text) do begin
SendMessage(hMemo, WM_CHAR, ord(Edit1.text[i]), 0);
end;
end;
end;
end;
Mit WM_KEYDOWN/UP kommte ich auch nicht in notepad Schreiben obwohl ich das richtige
Handle hatte
(siehe Abbruchbedingungen)
aber mit WM_CHAR (hab ich im
SDK gefunden
) landete alles in Notepad so wie ich wollte
vllt geht's auch ohne FindWindowEx probier ich auch dann mal aus
[edit]
hab's ohne FindWindowEx getestet .. funktioniert nicht
& Luckie war mal wieder schneller als ich
[/edit]