Re: Disable Ctrl Alt DeletePosted by Joey on July 04, 2003 at 19:11:55: In Reply to: Disable Ctrl Alt Delete posted by Oblivion on July 04, 2003 at 18:19:44: Here it is in the way of a button click, just change it to whateva procedure it is under: procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @i, 0); end; That disables it, and to reenable it you need to change the 1 to a '0'! :) hope it works! If it doesn't work it's because i have the 1 and 0 thing mixed up just fiddle
[ DelphiLand: free Delphi source code, tips, tutorials ] |
|