Problem mit auszugebenen String-Komponenten in Delphi

[Innos]

Hi

Hab mich grad ma frisch hier angemeldet und NATÜRLICH die Suchfunktion ausgiebig getestet^^
aber: ich will ein ganzes wort in einem anderem Programm, dass fokussiert is, ausgeben...

habs auch eigentlich scho geschafft. Habe aber leider jeden einzelnen Buchstaben ansprechen müssen:
also zB:

Delphi-Quellcode:

 
Keybd_Event(Ord('U'),0,0,0);
Keybd_Event(Ord('U'),0,KEYEVENTF_KEYUP,0);

Keybd_Event(Ord('L'),0,0,0);
Keybd_Event(Ord('L'),0,KEYEVENTF_KEYUP,0);

das klappt auch ohne probs, nur wird es ab zwei Worten (ID und Passwort) ziemlich lang und ich will irgendwann noch diese Daten über eine InputBox einfügen...

über die SuFu hab ich dann folgenen code herausgefunden:

Delphi-Quellcode:

var sTmp: String;
var FocusHWnd: HWnd;
begin
sTmp := 'bla';
FocusHWnd:= GetFocus;

SendMessage(FocusHWnd, WM_SETTEXT, Length(sTmp), LPARAM(PChar(sTmp)));   
end;

so das funktioniert nicht -.- und dieses FocusHWnd kann ich mir doch eigentlich sparen oder? das Programm is eh maximiert und das Editfeld is auch aktiv...
kann mir jemand helfen? plz
vielen Dank schon mal

mfg