Dragongba Postado Fevereiro 21, 2008 Denunciar Share Postado Fevereiro 21, 2008 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: Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Fevereiro 21, 2008 Denunciar Share Postado Fevereiro 21, 2008 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 + F4public { 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Dragongba Postado Fevereiro 21, 2008 Autor Denunciar Share Postado Fevereiro 21, 2008 Ow vlw mesmo cara ^^só mais uma duvida eu coloco esses codigos no form? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Fevereiro 21, 2008 Denunciar Share Postado Fevereiro 21, 2008 só mais uma duvida eu coloco esses codigos no form?claro ... no primeiro exemploTfrm_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 apropriadoabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Dragongba Postado Fevereiro 21, 2008 Autor Denunciar Share Postado Fevereiro 21, 2008 ah beleza vlw man ^^Abraço!Cara desculpa eu ta enchendo você de novo ^^mas n deu certo aqui...n bloquio...Flws Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Fevereiro 22, 2008 Denunciar Share Postado Fevereiro 22, 2008 mas n deu certo aqui...n bloquio...este codigo funciona no windows 98Para 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 desabilitarDica de KwstyOutra dicahttp://www.mail-archive.com/delphi-br@yaho...r/msg55944.htmlabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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:
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.