Re: Disable Ctrl Alt Delete
Posted 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 ]