Hallo,
ich hab mal wieder eine Frage an euch.
Wie kann ich den Shift-Status herausfinden bzw. wie kann ich herausfinden ob ein Buchstabe in Großbuchstaben oder Kleinbuchstaben eingegeben wurde (ich wandle
DirectX-Keycodes in Virtual-Keys und dann in Chars um, leider liefert mir die Funktion nur Grossbuchstaben ohne Berücksichtigung der Shift-Taste).
Delphi-Quellcode:
function D3DDirectInputKeyCodeToChar(key:cardinal):Char;
var layout:HKL;
state:TKeyboardState;
map:cardinal;
begin
layout:=GetKeyboardLayout(0); //Actual keyboard layout
if (GetKeyboardState(State)=True) then begin
map:=MapVirtualKeyEx(key,1,layout);
Result:=chr(map); //Char
end;
end;
Wäre für einen Tipp sehr dankbar.
Vielen Dank im Vorraus !
Liebe Grüße,
Thomas