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;