Es geht natürlich auch so:
Delphi-Quellcode:
var
I: Integer;
for i := 0 to length(Edit1.Text)-1 do
begin
keybd_event(Ord(Edit1.Text[i]), 0, 0, 0);
Keybd_Event(Ord(Edit1.Text[i]),0,KEYEVENTF_KEYUP,0);
end;
Das is das selbe wie ich oben geschrieben hab, nur in alter Syntax...
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1