(Duvida) Não fechar o programa pelo alt+f4 e nem pelo ctr+alt+del

[Dragongba]

Ola queria saber se há algum código para que a pessoa não consiga nem fechar o programa pelo alt+f4 e nem pelo ctr+alt+del...

Vlws! (Alias q ele n consiga abrir a caixa do ctr+alt+del sem antes sair do programa)

:rolleyes:

[Jhonas]

Ola queria saber se há algum código para que a pessoa não consiga nem fechar o programa pelo alt+f4 e nem pelo ctr+alt+del...

Como desabilitar as teclas Alt + F4

public
  { Public declarations }
  fecha: Boolean;
  end;

implementation

{$R *.DFM}

Function GetStateK (Key: integer): boolean;
begin
  Result := Odd (GetKeyState (Key));
end;

procedure Tfrm_HIP.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If Not fecha Then
Action := caNone Else
Action := caFree;
end;

procedure Tfrm_HIP.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If GetStateK (VK_LMENU) And (Key = VK_F4) Then
fecha := False;
end;

{Dica enviada por William}

Desabilitar Teclas Ctrl+Alt+Del (Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)

var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);

{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;

abraço

[Dragongba]

Ow vlw mesmo cara ^^

só mais uma duvida eu coloco esses codigos no form?

[Jhonas]

só mais uma duvida eu coloco esses codigos no form?

claro ... no primeiro exemplo

Tfrm_HIP.FormClose ... TForm1.FormClose ( evento FormClose do seu form )

Tfrm_HIP.FormKeyDown... TForm1.FormKeyDown (evento FormKeyDowm do seu form )

no segundo pode ser num botao , ou evento active do seu form, onde voce achar mais apropriado

abraço

[Dragongba]

ah beleza vlw man ^^

Abraço!

Cara desculpa eu ta enchendo você de novo ^^

mas n deu certo aqui...n bloquio...

Flws

[Jhonas]

mas n deu certo aqui...n bloquio...

este codigo funciona no windows 98

Para usar no xp , você tem que modificar o registro.

Então vamos lá.

Vá lá em uses e declare Registry.

então fica assim.

Código:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry;

Depois você cria a procedure, ai fica assim....

Código:

procedure HabilitaCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';
begin
   with TRegistry.Create do
try
   RootKey:=HKEY_CURRENT_USER;
   if OpenKey(sRegPolicies+'\System\',True) then
   begin
     case YesNo of
     False:
        begin
           WriteInteger('DisableTaskMgr',1);
        end;

     True:
        begin
           WriteInteger('DisableTaskMgr',0);
        end;
   end;
end;

CloseKey;

if OpenKey(sRegPolicies + '\Explorer\',True) then
   begin
      case YesNo of
      False:
         begin
            WriteInteger('NoChangeStartMenu',1);
            WriteInteger('NoClose',1);
            WriteInteger('NoLogOff',1);
         end;
     True:
        begin
           WriteInteger('NoChangeStartMenu',0);
           WriteInteger('NoClose',0);
           WriteInteger('NoLogOff',0);
        end;
     end;
end;

CloseKey;
finally
Free;
end;
end;

**Nota: Pra quem não sabe , procedure fica logo abaixo daquele nome implemetation (lá em cima)

Feito isso agora você cria por exemplo dois butões.

Em um deles você coloca assim...

HabilitaCTRLALTDEL(True); //para habilitar

e

HabilitaCTRLALTDEL(False); // para desabilitar

Dica de Kwsty

Outra dica

http://www.mail-archive.com/delphi-br@yaho...r/msg55944.html

abraço