Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

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

Posted on 1997-08-26
8
Medium Priority
?
195 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.
0
Comment
Question by:novowi
  • 3
  • 3
  • 2
8 Comments
 
LVL 8

Accepted Solution

by:
ZifNab earned 200 total points
ID: 1342557
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
 

Author Comment

by:novowi
ID: 1342558
Hi ZifNab,

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

Regards,

Oliver
0
 
LVL 8

Expert Comment

by:ZifNab
ID: 1342559
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
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 

Author Comment

by:novowi
ID: 1342560
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
 
LVL 8

Expert Comment

by:ZifNab
ID: 1342561
Hi Oliver,

Thanks for the explanation.

Have fun,
c.u. Tom;
0
 

Expert Comment

by:nomore_224
ID: 9208501
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
 

Expert Comment

by:nomore_224
ID: 9208519
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
 

Expert Comment

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

does any1 come hereeeeee ever ??!!
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Suggested Courses

782 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question