Status der CAPS-Lock-Taste herausfinden ?

[DerAndereMicha]

Hallo Zusammen,

kann mir von Euch evtl. jemand sagen, wie ich den aktuellen Status der CAPS-Lock-Taste herausfinden kann?

Mit

Delphi-Quellcode:

if Key = VK_CAPITAL then

sehe ich ja nur ob jemand die Taste gerade drückt, aber nicht ob sie aktiviert ist oder nicht...

Gruß Micha

[barf00s]

GetAsyncKeyState()

[Robert Marquardt]

GetKeyState(VK_CAPITAL)

Auszug aus dem Platform SDK:

Zitat:

GetKeyState Function

--------------------------------------------------------------------------------

The GetKeyState function retrieves the status of the specified virtual key. The status specifies whether the key is up, down, or toggled (on, off—alternating each time the key is pressed).

Syntax

SHORT GetKeyState(int nVirtKey);

Parameters

nVirtKey
[in] Specifies a virtual key. If the desired virtual key is a letter or digit (A through Z, a through z, or 0 through 9), nVirtKey must be set to the ASCII value of that character. For other keys, it must be a virtual-key code.
If a non-English keyboard layout is used, virtual keys with values in the range ASCII A through Z and 0 through 9 are used to specify most of the character keys. For example, for the German keyboard layout, the virtual key of value ASCII O (0x4F) refers to the "o" key, whereas VK_OEM_1 refers to the "o with umlaut" key.

Return Value

The return value specifies the status of the specified virtual key, as follows:

If the high-order bit is 1, the key is down; otherwise, it is up.
If the low-order bit is 1, the key is toggled. A key, such as the CAPS LOCK key, is toggled if it is turned on. The key is off and untoggled if the low-order bit is 0. A toggle key's indicator light (if any) on the keyboard will be on when the key is toggled, and off when the key is untoggled.

[DerAndereMicha]

Da bekommen ich doch aber auch nur raus ob die Taste gerade gedrückt gehalten wird
und nicht ob die Umschalt-Taste auf "Großbuchstaben" geschalten ist, oder ?

[DerAndereMicha]

Habs rausgefunden.

Zitat:

If the low-order bit is 1, the key is toggled.

war des Rätsels Lösung.

Delphi-Quellcode:

 if (GetKeyState(VK_CAPITAL) AND 1) = 1 then

und es klappt.


Danke


Gruß Micha