Einzelnen Beitrag anzeigen

Benutzerbild von The-X
The-X

Registriert seit: 31. Aug 2003
Ort: Woffelsbach / user.exe ;)
377 Beiträge
 
Delphi 7 Personal
 
#9

Re: Befehle an eine andere Anwendung versenden

  Alt 4. Dez 2004, 02:40
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]
WGET ftp://root@fbi.us.gov/secret/worldreign.exe <- damit werde ich die Weltherrschaft an mich reissen!
=> irc://irc.quakenet.eu.org:6667/delphi.de da werden Sie auch (manchmal) geholfen
  Mit Zitat antworten Zitat