Na siehst DU,
mit ein bissel Eigeninitiative wird einem auch weitergeholfen.
Hier ein kommentiertes Beispiel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Handle: HWND;
//Unser Fensterhandle
i: Integer;
//Unsere Laufvariable für die For-Schleife
const
sTEXT:
String = '
Eine Nachricht. Keine Ahnung, welche';
//Unser Beispieltext
begin
Handle := FindWindow('
Notepad',
nil);
//Wir suchen das Handle des Notepads
if Handle <> 0
then //wenn wir es gefunden haben
Handle := FindWindowEx(
Handle, 0, '
Edit',
nil);
//dann suchen wir das Handle des Editcontrols innerhalb des Notepads - denn dahin soll der Text gehen
if Handle <> 0
then //wenn wir es gefunden haben
for i := 1
to Length(sTEXT)
do begin //gehen wir in einer Schleife den zu sendenden Text Zeichen für Zeichen durch und schicken ihn ans Edit-Feld
SendMessage(
Handle, WM_CHAR, Word(sTEXT[i]), 0);
end;
end;