Text an Notepad senden

[Xzeer]

Hallo,

Ich möchte gerne aus meinem Programm einen Text an Notepad senden.

Der Code um das Fenster zu finden lautet:

window:=findwindow('Notepad', nil); Das Fenster wird auch gefunden.

Die Komponente an die ich den Text senden möchte heißt ja "Edit", nur wie schaffe ich es einen Text an das Edit zu senden???

[s-off]

Hallo,

dazu gibt es hier im Forum reichlich Beispiele. Einfach mal die Suchfunktion bemühen.

[DeddyH]

Delphi-Quellcode:

var Wnd: HWnd;
begin
  Wnd := FindWindowEx(FindWindow('notepad',nil),0,'Edit',nil);
  if Wnd <> 0 then
    SendMessage(Wnd,WM_SETTEXT,0,LongInt(PChar('Eingefügt')));
end;

Ungetestet.

[Xzeer]

mhh danke funtioniert.

Gibt es eigentlich irgendwo eine Übersicht über alle (die meist verwendeten) Befehle, die man mit SendMessage senden kann? Im MSDN hab ich nichts gefunden...

[Der.Kaktus]

Zitat von Leos-Studio:

mhh danke funtioniert.

Gibt es eigentlich irgendwo eine Übersicht über alle (die meist verwendeten) Befehle, die man mit SendMessage senden kann? Im MSDN hab ich nichts gefunden...

Schau mal in der WIN32.hlp nach.. zu finden im Verz.: C:\Programme\Gemeinsame Dateien\Borland Shared\MSHelp