Re: Disable Ctrl Alt Delete


[ Delphi Forum ] [ Delphi Tutorials -- by DelphiLand ]

Posted by webmaster Guido on July 05, 2003 at 16:12:45:

In Reply to: Re: Disable Ctrl Alt Delete posted by Joey on July 04, 2003 at 19:11:55:

: Here is 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 disable it and to reenable it you need to change the 1 to a '0'! :) hope it works!
: If it doesnt work its becaus ei have the 1 and 0 thing mixed up just fiddle
--------

The SystemParametersInfo() trick works for older Windows systems like Win95 and Win98, but not for XP.

 



[ Delphi Forum ]
[ DelphiLand: free Delphi source code, tips, tutorials ]