Habe jetzt diesen Code gefunden:
Delphi-Quellcode:
procedure SendKeyString(KStr: String);
var
Scan: SHORT;
key: Byte;
i: Integer;
begin
for i := 0 to length(KStr) do begin
key := Byte(Kstr[i]);
Scan := MapVirtualKey(key, 0);
keybd_event(key, Scan, 0, 0);
keybd_event(key, Scan, KEYEVENTF_KEYUP, 0);
end;
end;
Allerdings übernimmt er nur Großbuchstaben und wandelt sie in Kleinbuchstaben um. Außerdem werden Sonderzeichen außer Acht gelassen.
Ne Idee wie man das noch ändern könnte?
MfG Q-Dog
/Edit
Nach langem Suchen endlich selbst fündig geworden
http://www.delphipraxis.net/internal...ct.php?t=85418