Página 1 de 2 12 ÚltimoÚltimo
Resultados 1 a 10 de 13

Tópico: [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

  1. #1
    Hacker
    Data de Ingresso
    May 2007
    Localização
    #Invaders#
    Posts
    1.283
    Post Thanks / Like

    [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

    Bom vejo muita gente que esta tentando desabilitar o Ctrl+Alt+Del no Windows Xp , mas esta usando a função errada.
    Eu demorei muito pra conseguir entender essa besteira ¬¬ .
    Vou explicar aqui bem detalhado.

    Acontece que essa função aqui.

    Código:
    SystemParametersInfo(97, Word(True),@OldValue, 0);
    Funciona apenas para 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



    Espero que tenha compreendido.
    Se for postar em outro lugar, coloca os creditos por favor. (^_^)
    "O homem não está sozinho enquanto tem a si próprio"
    "Alguém"


    http://img511.imageshack.us/img511/2...orcismowj5.gif

  2. #2
    Wannabe
    Data de Ingresso
    Oct 2006
    Posts
    609
    Post Thanks / Like
    Hummmmmmmmmmmm

    Ótima dica cara, vai ajudar muitos aki do forum...

  3. #3
    Black Hat Avatar de Cartoondivine
    Data de Ingresso
    Nov 2005
    Localização
    127.0.0.1
    Posts
    9.728
    Post Thanks / Like
    O jeito mais fícil de rodar o Gerenciador de Tarefas é apertando e segurando CTRL e SHIFT enquanto se aperta ESC: igual ao CTRL-ALT-DEL, mas CTRL-SHIFT-ESC.
    Pra saber mais: http://linhadefensiva.uol.com.br/docs/g ... e-tarefas/

  4. #4
    Hacker
    Data de Ingresso
    May 2007
    Localização
    #Invaders#
    Posts
    1.283
    Post Thanks / Like
    Citação Postado originalmente por cartoondivine
    O jeito mais fícil de rodar o Gerenciador de Tarefas é apertando e segurando CTRL e SHIFT enquanto se aperta ESC: igual ao CTRL-ALT-DEL, mas CTRL-SHIFT-ESC.
    Pra saber mais: http://linhadefensiva.uol.com.br/docs/g ... e-tarefas/

    Essa eu sabia cartoon
    Mas acontece que esse código também boqueia o ctrl+alt+esc = taskmgr
    Ou seja , o código nao bloqueia apenas ctrl+alt+del , mas sim todo o gerenciador de tarefas. ^^
    "O homem não está sozinho enquanto tem a si próprio"
    "Alguém"


    http://img511.imageshack.us/img511/2...orcismowj5.gif

  5. #5
    Newbie
    Data de Ingresso
    Dec 2006
    Posts
    99
    Post Thanks / Like
    Nossa que maravilha nao sabia disso...
    exclusividade :wink:
    boa tava atraz disso
    Se Deus é por nós, pode ser contra ?.. vai saber

  6. #6
    Lamer
    Data de Ingresso
    Aug 2009
    Posts
    2
    Post Thanks / Like

    Re: [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

    Esta procedure nao FUNCIONA. O CTRL+ALT+DEL continua a funcionar

  7. #7
    Old School ingresso Avatar de z4ll0c
    Data de Ingresso
    Jul 2009
    Posts
    4.965
    Post Thanks / Like

    Re: [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

    Citação Postado originalmente por i-master
    Esta procedure nao FUNCIONA. O CTRL+ALT+DEL continua a funcionar
    funcionar funciona sim mas precisa de reiniciar para ter efeito,se não me engano
    Faça uma doação em bitcoin: 14zQW8RrvuHoKjQp6Y4EBqA38yvPauwGwA
    Menos estado e mais progresso.

    Microsoft Technology Associate: Software Development Fundamentals (C#)

  8. #8
    Newbie
    Data de Ingresso
    Mar 2009
    Posts
    26
    Post Thanks / Like

    Re: [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

    nao sei se funciona certo + eu fiz um programinha onde eu registrava como hotkey as setinhas
    e elas nao funcionavam +
    e se tentasse tipo
    RegisterHotkey(Handle,0,0,VK_ESCAPE);
    RegisterHotkey(Handle,1,0,VK_DELETE);

  9. #9
    Old School ingresso Avatar de z4ll0c
    Data de Ingresso
    Jul 2009
    Posts
    4.965
    Post Thanks / Like

    Re: [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

    Citação Postado originalmente por paulod93
    nao sei se funciona certo + eu fiz um programinha onde eu registrava como hotkey as setinhas
    e elas nao funcionavam +
    e se tentasse tipo
    RegisterHotkey(Handle,0,0,VK_ESCAPE);
    RegisterHotkey(Handle,1,0,VK_DELETE);
    ao ir no iniciar>executar e digitar taskmgr o gerenciador de tarefas iria abrir do mesmo jeito
    Faça uma doação em bitcoin: 14zQW8RrvuHoKjQp6Y4EBqA38yvPauwGwA
    Menos estado e mais progresso.

    Microsoft Technology Associate: Software Development Fundamentals (C#)

  10. #10
    Lamer
    Data de Ingresso
    Aug 2009
    Posts
    2
    Post Thanks / Like

    Re: [Dica - Delphi] Desabilitando o Ctrl+Alt+Del no Windows Xp

    [quote=R0Dr1g0.]
    Citação Postado originalmente por "i-master":3te1c1w8
    Esta procedure nao FUNCIONA. O CTRL+ALT+DEL continua a funcionar
    funcionar funciona sim mas precisa de reiniciar para ter efeito,se não me engano[/quote:3te1c1w8]

    Tem que funcionar sem reinicializar. Você não vai parar o pedir para o Usuario reinicializar a Máquina no meio de um pagamento TEF. Então não funciona. Reinicialize o que ele fez foi desaparecer com o botão desligar.

Tópicos Similares

  1. Respostas: 5
    Último Post: 17 Jun 2009, 12:27
  2. VNC computador windows bloqueado (ctrl+alt+del)
    Por timbeh no fórum Aplicativos
    Respostas: 0
    Último Post: 16 May 2007, 16:04
  3. [Dica] Cuidado com o Ctrl+C
    Por souzadc no fórum Matérias e Artigos
    Respostas: 1
    Último Post: 13 Sep 2005, 22:53

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •