NOTA:
Suona come voi il bisogno la costante virtuale di codice chiave rappresentata nella vostra variabile di TShiftstate. Using il numero intero (ssShift), il numero intero (ssAlt), ecc. non funzionerà poichè restituirà il valore ordinale dell'elemento dell'insieme. cioè lo spostamento restituirà 0, alt restituirà 1, ecc. Sono abbastanza sicuro questo non sono che cosa volete.
se avete bisogno del valore chiave virtuale, usare qualcosa di simile:
varietà KC: numero intero;
…
KC: = 0;
se ssShift in AShiftState allora KC: = KC O VK_SHIFT;
se ssCtrl in AShiftState allora KC: = KC O VK_CONTROL;
se ssALT in AShiftState allora KC: = KC O VK_MENU;
se dovete usarli per i messaggi del mouse, usare qualcosa di simile:
se ssShift in AShiftState allora KC: = KC O MK_SHIFT;
se ssCtrl in AShiftState allora KC: = KC O MK_CONTROL;
//alt di sostegno nel messaggio del mouse, dovreste usare qualcosa come GetKeyState determinarlo