Desabilitar Ctrl+alt+del

[Mauro Jr]

E aí gurizada bacana,

Como faço para desabilitar o CTRL+ALT+DEL?

Abraços,

Mauro Junior

[Arlon]

Usa esse código aqui, além de desabilitar CTRL+ALT+DEL ele desabilita ALT+F4 também:

procedure TFrm.FormCreate(Sender: TObject); <--- evento OnCreate
var  hSysMenu: HMENU;
begin
   hSysMenu := GetSystemMenu(Self.Handle, False);
   if hSysMenu <> 0 then begin
      EnableMenuItem(hSysMenu, SC_CLOSE,
      MF_BYCOMMAND Or MF_GRAYED);
      DrawMenuBar(Self.Handle);
   end;
   KeyPreview := True;
end;
procedure TFrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);  <--- evento OnKeyDown
begin
   if (Key = VK_F4) and (ssAlt in Shift) then
      Key := 0;
end;

Abraços...

[bolomaster]

procedure TForm1.Button1Click(Sender: TObject);
Var
numero: integer;
begin
SystemParametersInfo(97,Word(true),@numero,0);
end;
{ Para habilitar é só chamar a mesma função com Word(false) }

Basta colocar dentro de um botao como na unit

Bem você pode fazer assim tambem, desabilitando o alt+tab, WinKey, eo CRTL+ALT+DEL

abraços e espero que seja de utilidade

Rafael Marciano

[Mauro Jr]

Usa esse código aqui, além de desabilitar CTRL+ALT+DEL ele desabilita ALT+F4 também:

procedure TFrm.FormCreate(Sender: TObject); <--- evento OnCreate
var  hSysMenu: HMENU;
begin
   hSysMenu := GetSystemMenu(Self.Handle, False);
   if hSysMenu <> 0 then begin
      EnableMenuItem(hSysMenu, SC_CLOSE,
      MF_BYCOMMAND Or MF_GRAYED);
      DrawMenuBar(Self.Handle);
   end;
   KeyPreview := True;
end;
procedure TFrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);  <--- evento OnKeyDown
begin
   if (Key = VK_F4) and (ssAlt in Shift) then
      Key := 0;
end;

Abraços...

Desabilitar o ALT + F4 deu certo.

Mas desabilitar CTRL+ALT+F4 não funcionou. Por que será?

Abraços,

Mauro Junior

[Mauro Jr]

procedure TForm1.Button1Click(Sender: TObject);
Var
numero: integer;
begin
SystemParametersInfo(97,Word(true),@numero,0);
end;
{ Para habilitar é só chamar a mesma função com Word(false) }

Basta colocar dentro de um botao como na unit

Bem você pode fazer assim tambem, desabilitando o alt+tab, WinKey, eo CRTL+ALT+DEL

abraços e espero que seja de utilidade

Rafael Marciano

Bah! Tentei, mas não funcionou. Não consegui desabilitar CTRL+ALT+DEL

Força Sempre!

Mauro Junior

[bolomaster]

cara muito estranho vou postar a unit completa do projeto para que você possa dar uma analisada

abraços

so um pergunta antes é o win xp? talvez nele não funcione apesar de nunca ter testado no win xp

abraços

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

  Var

numero: integer;

begin

SystemParametersInfo(97,Word(true),@numero,0);

end;

{ Para habilitar é só chamar a mesma função com Word(false) }

procedure TForm1.Button1Click(Sender: TObject);

  Var

numero: integer;

begin

SystemParametersInfo(97,Word(true),@numero,0);

label1.Caption :='Agora o CTRL+ALT+DEL e ALT+TAB esta desabilitado!'

end;

{ Para habilitar é só chamar a mesma função com Word(false) }

procedure TForm1.Button2Click(Sender: TObject);

Var

numero: integer;

begin

SystemParametersInfo(97,Word(false),@numero,0);

label1.Caption := 'Agora pressione CTRL+ALT+DEL e ALT+TAB novamente !'

end;

{ Para desabilitar é só chamar a mesma função com Word(true) }

end.

[Mauro Jr]

Rafael, infelizmente não funcionou . Mas mesmo assim agradeço o teu empenho.

Respondendo a tua pergunta: Eu uso win 2000.

Será que isso influencia?

Abraços,

Mauro Junior

[bolomaster]

não, acho que não influencia não porque eu tenho esse sistema aqui e quando eu fiz ele era em win 2000 ADV SERVER, mas agora é XP e funciona beleza, mas vamos ver, vou levar numa maquina aqui com 2000 pro, para ver

abraços

[Mauro Jr]

Ok!

[Guest Guest]

não, acho que não influencia não porque eu tenho esse sistema aqui e quando eu fiz ele era em win 2000 ADV SERVER, mas agora é XP e funciona beleza, mas vamos ver, vou levar numa maquina aqui com 2000 pro, para ver

abraços

Parceiro,

Testei no Windows 98 e funcionou, mas no 2000 não quer funcionar mesmo.

Força Sempre!

Mauro Junior

[CorN_Sk8]

http://www.delphix.br2.net/arquivos/txt/De..._DEL_Win_XP.txt