so. habe meinen Code mal etwas umgeschrieben.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
hOE: hWnd;
s : string;
i : integer;
begin
hOE:=FindWindow(nil,'Unbenannt - Editor');//Finde das Fenster mit Notepad
if hOE = 0 then ShowMessage('Nix gefunden');
s := 'test';
for i := 1 to Length(s) do
SendMessage(hOE, WM_CHAR, Word(s[i]), 0); //send Keys
end;
keine Fehler, keine abgesstürtzen progs mehr. aber funtkionieren tuts au net
