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