Befehle an eine andere Anwendung versenden

[The-X]

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]