String erkennen und Tastendrücke simulieren

[DeddyH]

Ungetestet:

Delphi-Quellcode:

Procedure SendString(Text:String);
var
  i : integer;
begin

  for i := 1 to (length(text)) do
    begin
      if text[i] in ['A'..'Z','Ä','Ö','Ü'] then
        Keybd_Event(VK_SHIFT,0,0,0);
      Keybd_Event(Ord(Text[i]),0,0,0);
      Keybd_Event(Ord(Text[i]),0,KEYEVENTF_KEYUP,0);
      if text[i] in ['A'..'Z','Ä','Ö','Ü'] then
        Keybd_Event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
   end;

end;