key_event

[day]

HAllo
Ich habe folgendes problem mit Key_events. Ich übergebe meiner funktion einen string und möchte das er ihn so ausgibt (ohne beachtung von shift oder anderen keys).
Aber bis jetzt ist es so das er ein "a" in eine "1" umwandelt und wenn die shift taste gedrückt ist wandelt er ein "A" in ein "a" um.
Wo liegt der Fehler?

Delphi-Quellcode:

procedure TSer2KeyForm.SendKeys( Keys : String );
Var I : Integer;
begin
  for I := 0 To Length( Keys ) Do
  eegin
    keybd_event( Ord(Keys[I]), MapVirtualKey(Ord(Keys[I]),1), 0, 0 );
    keybd_event( Ord(Keys[I]), MapVirtualKey(Ord(Keys[I]),1), KEYEVENTF_KEYUP, 0 );
    Application.ProcessMessages;
    Sleep( 5 );
  end;
end;

[toms]

Hi,

Klick: Tastatureingabe

[day]

Hallo

Danke für die Antwort. Leider ignoriert das Beispiel die Capslock taste ebenfalls nicht.