VkKeyScan

[day]

Hallo

Ich habe folgendes Problem. Wenn ich ein "_" sende bekomme ich von der funktion VkKeyScan() eine -67 zurück. Es sollte aber eine 95 zurückgebeben werden.

lKey := VkKeyScan (Keys[I]);

[NicoDE]

Zitat von day:

lKey := VkKeyScan (Keys[I]);

Im höherwertigen Byte sind einige Flags enthalten (u.a. treiberspezifische, siehe Dokumentation).
Deshalb solltest Du nur das niederwertige Byte nutzen.

[day]

hallo

ich habe es so probiert aber ohne erfolg.


lKey := lo( VkKeyScan (Keys[I]) );

[NicoDE]

Dann könnte mehr Code wohl nicht schaden um das Problem nachvollziehen zu können...

[day]

so das ist der gesamte code. Ich möchte alle werte welche sich in "Keys" befinden über den tastatur buffer ausgeben.

Delphi-Quellcode:

For I := 0 To Length( Keys ) Do
  Begin

    lCapitalKeyState := GetKeyState(VK_CAPITAL);
    If (( lCapitalKeyState = 1) And (IsCapslockEnabled = False)) Then
    Begin
      keybd_event( VK_CAPITAL,0, 0, 0 );
      keybd_event( VK_CAPITAL,0, KEYEVENTF_KEYUP, 0 );
      IsCapslockEnabled := True;
    End;

    If ( Ord( Keys[I] ) in [65..90] ) Then
    Begin
        keybd_event( VK_SHIFT,0 , 0, 0 );
    End;


    lKey := lo( VkKeyScan (Keys[I]) );


    keybd_event( lKey, 0, 0, 0 );
    Sleep( 5 );
    keybd_event( lKey, 0, KEYEVENTF_KEYUP, 0 );

    If ( Ord( Keys[I] ) in [65..90] ) Then
    Begin
        keybd_event( VK_SHIFT,0, KEYEVENTF_KEYUP, 0 );
        Application.ProcessMessages;
    End;
  End;

  If (( GetKeyState(VK_CAPITAL) = 0 ) And ( IsCapslockEnabled )) Then
  Begin
    keybd_event( VK_CAPITAL,0, 0, 0 );
    keybd_event( VK_CAPITAL,0, KEYEVENTF_KEYUP, 0 );
  End;