string an externes Formular senden

[Q-Dog]

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