ShiftState abfragen

[Thomas233]

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