Aqui vai o codigo pra desabilitar o ctrl+alt +DEL
esta funcionando 100%
OBS.:coloca a chamada DisableTaskMgr(true);
no formClose
que mesmo fechando a o programa a opção do ctrl+alt +del fica desabilitado
//Desabilita Ctrl Alt Del
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);
if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;
//Desabilita Ctrl Alt Del
DisableTaskMgr(false);
//habilita Ctrl Alt Del
DisableTaskMgr(true);
Em 10/02/07, Vinicius Latini <[EMAIL PROTECTED]> escreveu:
>
> é eu já tentei esses comandos mas eles não funcionan
>
> o comando que o hudson mandou abaixo esta funcionando tranquilo
> já converti pra C++ e ficou show
>
>
>
> Em 10/02/07, Hudson <[EMAIL PROTECTED]> escreveu:
> >
> > Ai vai um codigo que peguei no site da Borland que trava as teclas
> >
> > (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;
> >
> > ----- Original Message -----
> > From: Vinicius Latini
> > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > Sent: Saturday, February 10, 2007 12:36 AM
> > Subject: Re: [delphi-br] Sistema de Lan House
> >
> > Parece até concidencia peguei um pra fazer também
> >
> > comecei a programar ontem
> > estou fazendo com socket ..
> > por enquantou tendo problemas no cliente referente a funções pra boquear
> > ALT+F4 ,Alt + Esc , CTRL + ESC
> >
> > PS estou fazendo com o Builder
> >
> > Quqlquer coisa manda mensagem
> > e a gente troca uma ideia ..
> >
> > [EMAIL PROTECTED] <viniciuslw%40gmail.com>
> >
> > Em 09/02/07, Humberto <[EMAIL PROTECTED]<humbertogrupos%40terra.com.br>>
> > escreveu:
> > >
> > > Olá caros colegas.
> > > Eu irei pegar um sistema de Lan House para desenvolver, e gostaria de
> > > saber se algum de vcs já fez um e se pode me ajudar no sentido de por
> > onde
> > > começar rsrs.. Imagino q seja usando Sockets etc..
> > >
> > > Alguém pode me dar uma ajudinha?
> > >
> > > Vlw.
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
[As partes desta mensagem que não continham texto foram removidas]
