L'exemple ci-dessus désactive les touches ALT+TAB, CTRL+ESC, CTRL.
procedure SystemKeys(Disable: Boolean); var OldVal : LongInt; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0); end;
Blog sur la conception, développement et le génie logiciel. Divers langages et systèmes d'exploitations sont traités.
procedure SystemKeys(Disable: Boolean); var OldVal : LongInt; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0); end;
KEYTABLE="cf.map.gz"