VirtualKeys to Char

[Gruber_Hans_12345]

Juhu, funktioniert .....

Falls mal wer sowas ähnliches braucht .....

Delphi-Quellcode:

var tempC       : array [1..2] of Char;
    keystate    : TKeyboardState;
begin
    GetKeyboardState(keystate);

    if ToAscii(Key, MapVirtualKey(key, 0), keyState, @tempC[1], 0) > 0 then begin

        Edit3.Text  := Edit3.Text + tempC[1];
    end;