Mega Code Archive

 

Categories / Delphi / System

 

Windows 9xde windows tuşlarını, ctrl+alt+del, alt+tab ve ctrl+esc tuşlarını iptal etmek

Procedure DisableWinKeys(Value : Boolean); Var Dummy : Integer; State : Byte; Begin If Value Then State:=1 Else State:=0; Dummy:=0; SystemParametersInfo(SPI_SETFASTTASKSWITCH,State,@Dummy,0); SystemParametersInfo(SPI_SCREENSAVERRUNNING,State,@Dummy,0); End;