delphi下怎么屏蔽win2000下的ctrl+alt+del啊?

Question

delphi高手能否告诉我们啊？
现在编一个程序
目的是只让程序的界面在最前面用户不能越过此界面进入其他的任何程序或是文件夹
急用到要将ctrl+alt+del屏蔽掉啊
高手们相救啊

Answer 1

以下方法在2000Profession有效
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;const
  FPath='\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\';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 TForm1.Button1Click(Sender: TObject);
var
  rgLimit: TRegistry;
begin
  rgLimit := TRegistry.Create;
  try
    rgLimit.RootKey :=HKEY_LOCAL_MACHINE;
    rgLimit.OpenKey(FPath, True);
    rgLimit.WriteString('AutoAdminLogon','2');
    Application.MessageBox('屏蔽操作成功，需重新启动系统！',
        'AAA, MB_OK
        or
        MB_ICONWARNING);
  finally
    rgLimit.Free ;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  rgLimit: TRegistry;
begin
  rgLimit := TRegistry.Create;
  try
    rgLimit.RootKey :=HKEY_LOCAL_MACHINE;
    rgLimit.OpenKey(FPath, True);
    rgLimit.WriteString('AutoAdminLogon','1');
    Application.MessageBox('取消屏蔽操作成功，需重新启动系统！',
        'AAA', MB_OK
        or
        MB_ICONWARNING);
  finally
    rgLimit.Free ;
  end;
end;end.