Solved

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

Posted on 1997-08-26
8
186 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 100 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
 

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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

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…
Migrating to Microsoft Office 365 is becoming increasingly popular for organizations both large and small. If you have made the leap to Microsoft’s cloud platform, you know that you will need to create a corporate email signature for your Office 365…
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).

863 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

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now