Bloquear Painel de Controle

[Guest --Delphi --]

Tem algum código pra bloquelar e desbloquear o acesso ao Painel de Controle?

[Progr'amador]

Olá "Delphi" :)

Ae vai o código, só é o seguinte, não bloqueia o acesso ao Painel de Controle. O Painel abre normalmente, no entanto, as opções do painel de controle que na verdade é bloqueada, e de quebra outros bloqueios, como o CTRL+ALT+DEL:

procedure TForm1.BloqueaWindows(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);
            WriteInteger('NoControlPanel',1);
          end;
          True:
          begin
            WriteInteger('NoChangeStartMenu',0);
            WriteInteger('NoClose',0);
            WriteInteger('NoLogOff',0);
            WriteInteger('NoControlPanel',0);
          end;
        end;
      end;
      CloseKey;
    finally
      Free;
    end;
end;

Há!, e não se esqueça de adicionar no uses Registry

Abs. Progr'amador.

Editado Julho 15, 2008 por Progr'amador