Disable Ctrl-Alt-Del

[Wojciech Lewandowski]

How to disable Ctrl-Alt-Del in Delphi 3 under Windows 95.

Thanks,

Wojtek L.

[Earl F. Glynn]

Wojciech Lewandowski wrote in message <35CFE126...@friko5.onet.pl>...

>How to disable Ctrl-Alt-Del in Delphi 3 under Windows 95.

Wojtek:

// These routines are based on information from the Microsoft Knowledgebase
// article Q161133, "How to Block CTRL+ALT+DEL and ALT+TAB in Windows 95."
// Note: According to this documentation, the routines below will NOT work
// under Windows NT.

// Routine names adapted from suggestion by Geir Bratlie (ro...@sn.no) in
// 12/8/96 post to comp.lang.pascal.delphi.misc, "Re: Help - Trapping KB
// Keys"

PROCEDURE TurnSystemKeysOff;
VAR
dummy: INTEGER;
BEGIN
SystemParametersInfo(SPI_SCREENSAVERRUNNING, INTEGER(TRUE), @Dummy, 0)
END {TurnSystemKeysOff};

PROCEDURE TurnSystemKeysOn;
VAR
dummy: INTEGER;
BEGIN
SystemParametersInfo(SPI_SCREENSAVERRUNNING, INTEGER(FALSE), @Dummy, 0)
END {TurnSystemKeysOn};

efg
_________________________________________
efg's Computer Lab: http://infomaster.net/external/efg

Earl F. Glynn E-Mail: Earl...@att.net
MedTech Research Corporation, Lenexa, KS USA

[Manaenkov Paul]

procedure TForm1.Button1Click(Sender: TObject);
var old:Boolean;
begin
old:=True;
//Disable
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@old,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
var old:Boolean;
begin
old:=True;
//Enable
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@old,0);
end;

Wojciech Lewandowski <35CFE126...@friko5.onet.pl> ...

>How to disable Ctrl-Alt-Del in Delphi 3 under Windows 95.
>

>Thanks,
>
>Wojtek L.
>