Eu já tinha essa função,
Tem um detalhe, não funciona no Vista pq não existe o caminho do
registry, que consta na função.
Para XP blz mas para o Vista não funciona.
--- Em delphi-br@yahoogrupos.com.br, "Joao Morais" <[EMAIL PROTECTED]>
escreveu
>
> 2008/10/29 Luiz Escobar <[EMAIL PROTECTED]>:
> > A aplicação pode ser executada com um user q tenha privilégio...
> > []s
>
> Mas você não tem garantia de que o usuário poderá fazer isso.
>
> Joao Morais
>
>
>
> > ----- Original Message -----
> > From: Joao Morais
> > To: delphi-br@yahoogrupos.com.br
> > Sent: Tuesday, October 28, 2008 8:46 PM
> > Subject: Re: [delphi-br] Desabilitar CTRL+ALT+DEL no Windows Vista
> >
> >
> > 2008/10/28 Luiz ESCobar <[EMAIL PROTECTED]>:
> > > Nada é impossivel João...
> > > Provavelmente o que ele quer na realidade é desabilitar o
TaskManager...
> > > Se for, ai esta:
> >
> > Este código não funciona se o usuário não tiver privilégio. Não
testei
> > como admin pra ver o que dá.
> >
> > --
> > Joao Morais
> >
> > > procedure HabilitaAltCtrlDel(YEsNo: Boolean);
> > > const
> > > sRegPolices = 'Software\Microsoft\Windows\CurrentVersion\Policies';
> > > begin
> > > with TRegistry.Create do
> > > try
> > > RootKey := HKEY_CURRENT_USER;
> > > if OpenKey(sRegPolices + '\System\', True) then
> > > begin
> > > case YesNo of
> > > False:
> > > begin
> > > WriteInteger('DisableTaskMgr', 1);
> > > end;
> > > True:
> > > begin
> > > WriteInteger('DisableTaskMgr', 0);
> > > end;
> > > end;
> > > end;
> > > CloseKey;
> > > finally
> > > Free;
> > > end;
> > > end;
>
