We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you a podcast all about Citrix Workspace, moving to the cloud, and analytics & intelligence. Episode 2 coming soon!Listen Now

x

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

novowi
novowi asked
on
Medium Priority
220 Views
Last Modified: 2012-05-04
How can I efficently prevent the use of ctrl+alt+del? I want
to prevent the Task-List from showing up.
Comment
Watch Question

Commented:
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.

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:
Hi ZifNab,

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

Regards,

Oliver

Commented:
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;

Author

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

Commented:
Hi Oliver,

Thanks for the explanation.

Have fun,
c.u. Tom;
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} ;)


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.


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

does any1 come hereeeeee ever ??!!
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.