SendMessage(Handle, WM_SETTEXT, 0, LongInt(PChar('Bla bla bla')));
Das bringt Dir aber noch nix, wenn Du das verwendest mußt Du erst nach dem
Handle des Memos im Notepad suchen.
Und window := FindWindow(NIL,'Notepad'); gibt bei mir 0 zurück, Window:=FindWindow(nil, 'Unbenannt - Editor'); findet eher was.
Beispielsweise würde das gehen:
Delphi-Quellcode:
var Window:THandle;
begin
Window:=FindWindow(nil, 'Unbenannt - Editor');
Window:=FindWindowEx(Window, 0, nil, nil);
SendMessage(Window, WM_SETTEXT, 0, LongInt(PChar('Bla bla bla')));