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

Hi ZifNab,

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

Regards,

Oliver

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;

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

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 ??!!