Shift-Taste bei Programmstart

[Thomas Grünig]

Hallo,<BR>
ich möchte gerne während eines Programmstarts herausfinden, ob ein Anwender <B>vor/während<B> des Programmstarts die shift-Taste gedrückt hält.<BR>
Kann mir jemand weiterhelfen?<BR>

mfg<BR>
Tom

[Nico Bendlin]

<pre><p><font color='blue'><i>// Test for MSB set
// ( test for negative value - because GetKeyState returns an signed value
// same as: (GetKeyState(VK_SHIFT) and SHORT($8000) <> 0) )</i></font>
<b>if</b> (GetKeyState(VK_SHIFT) < 0) <b>then</b>
ShowMessage(<font color='green'>'[SHIFT] is down'</font>);<p></pre&gt