Mit diesen Zeilen sollte am Ende in S eine textuelle Darstellung der gedrückten Tasten stehen.
Besonderheit: <Alt Gr> schaltet automatisch <LControl> mit ein!
Delphi-Quellcode:
S := '';
if GetKeyState(VK_LSHIFT) < 0 then
S := S + ' LShift';
if GetKeyState(VK_RSHIFT) < 0 then
S := S + ' RShift';
if GetKeyState(VK_LCONTROL) < 0 then
S := S + ' LControl';
if GetKeyState(VK_RCONTROL) < 0 then
S := S + ' RControl';
if GetKeyState(VK_LMENU) < 0 then
S := S + ' Alt';
if GetKeyState(VK_RMENU) < 0 then
S := S + ' Alt Gr';