How to disable ctrl+alt+del grip in WIN95/NT

How can I efficently prevent the use of ctrl+alt+del? I want
to prevent the Task-List from showing up.
novowiAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ZifNabCommented:
Hi novowi,

Hopes this helps, it's from UDDF (Unofficial Delphi Developers FAQ)


Issues :

The program should be nice and small so it can load before a user can
hit CTRL-ALT-DEL.

My Solution :

Compile a single WIN32API call into a small .exe in delphi.  

The Program :

------------------------------------------------------------------------
program small;

{written by Richard Leigh, Deakin Univesity 1997}

uses
  WinProcs;

{$R *.RES}

var
   Dummy : integer;

begin
  Dummy := 0;
  {Disable ALT-TAB}
  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
  {Disable CTRL-ALT-DEL}
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
end.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
novowiAuthor Commented:
Hi ZifNab,

Your answer was great, it works fine, thanks a lot.

Regards,

Oliver
0
ZifNabCommented:
Glad I could help,

Q : Task-list = Task Manager?
If so, you can go to the Task Manager by a rightclick of the mouse when the cursor is on the tasbar. So you also have to disable this possibility.

    Why do you want to disable it, if I may ask.

Have fun,
c.u. BanZif;

0
CompTIA Security+

Learn the essential functions of CompTIA Security+, which establishes the core knowledge required of any cybersecurity role and leads professionals into intermediate-level cybersecurity jobs.

novowiAuthor Commented:
Hi ZifNab,

Task-List != TaskManager.

Suppose, you run Win95 on a single PC and many user have access via there own login. You need a security software to restrict access to files and directories which don't belong to a certain user. Such a program is always started if a user logs on.

If one is quick enough one can apply the monkey-grip and shut this software down during it's initialization period because it is still visible in the Task Manager. This needs to be prevented.

Regards,

Oliver
0
ZifNabCommented:
Hi Oliver,

Thanks for the explanation.

Have fun,
c.u. Tom;
0
nomore_224Commented:
Okaaaaay I'm a new member here :)
20 years / male / Palestinian
I used this site alot while bulding my program so I guess its my time to help you guyz
one way I find to disable ctrl-alt-del in Windows XP Pro. it's through adding a key in the registry
and it disable it 100% you have to try it its alot of fun ;) as the program I have made
okay I dont want to get you bored here is the code :

--------------------------


Procedure call it what ever you want(); // this procedure to create the right registry key..
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CURRENT_USER; // Section to look for within the registry
if not Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',False) then
Reg.CreateKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System');
finally
Reg.Free;
end;
end;

procedure DisableCAD(AppTitle: string; register: boolean); // this procedure to Set the righ value

const
  RegKey = '\Software\Microsoft\Windows\CurrentVersion\Policies\System';
 var
 Registry: TRegistry;
begin
 Registry := TRegistry.Create;
 try
   Registry.RootKey := HKEY_CURRENT_USER;
   if Registry.OpenKey(RegKey, False) then
   begin
     if register = false then
       Registry.DeleteValue(AppTitle)
     else
       Registry.WriteBool(AppTitle,true);
   end;
 finally
   Registry.CloseKey;
   Registry.Free;
 end;
end;

//Simple call::
DisableCAD('DisableTaskMgr',true);

//DONT FORGET TO ADD REGISTRY TO THE USES CLAUSE..

{ENJOY} ;)


0
nomore_224Commented:
same thing without bugzzzzzz ( I hate bugz )
and how to enable the thing again ;)
hey somebody tell me what is it about the points ??

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure Doit(); // this procedure to create the right registry key..
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CURRENT_USER; // Section to look for within the registry
if not Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',False) then
Reg.CreateKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System');
finally
Reg.Free;
end;
end;

 procedure DisableCAD(AppTitle: string; register: boolean); // this procedure to Set the righ value

const
 RegKey = '\Software\Microsoft\Windows\CurrentVersion\Policies\System';
var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
try
  Registry.RootKey := HKEY_CURRENT_USER;
  if Registry.OpenKey(RegKey, False) then
  begin
    if register = false then
      Registry.DeleteValue(AppTitle)
    else
      Registry.WriteBool(AppTitle,true);
  end;
finally
  Registry.CloseKey;
  Registry.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Task Manager has been Disabled');
DisableCAD('DisableTaskMgr',true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Task Manager has been Enabled');
DisableCAD('DisableTaskMgr',false);
end;

end.


0
nomore_224Commented:
08/26/1997 11:12AM PDT
 
lol long time to get an answer body

does any1 come hereeeeee ever ??!!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.