Fórum Alterar gpedit.msc pelo delphi #344506

  SISTEMA = ´software\Microsoft\Windows\CurrentVersion\Policies\System´;
  EXPLORER = ´Software\Microsoft\Windows\CurrentVersion\Policies\Explorer´;
  NETWORK = ´Software\Microsoft\Windows\CurrentVersion\Policies\Network´;
  UNINSTALL = ´Software\Microsoft\Windows\CurrentVersion\Policies\Uninstall´;
  DOS = ´Software\Policies\Microsoft\Windows\System´;

procedure RestringirVideo(UmParaSimZeroParaNao:Integer);
var
  key : TRegistry;
begin
  key :=TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(SISTEMA,TRUE);
  
  //Desabilita página do papel de parede
  key.WriteInteger(´NoDispBackgroundPage´,UmParaSimZeroParaNao);
  //Desabilita página da aparência
  key.WriteInteger(´NoDispAppearancePage´,UmParaSimZeroParaNao);
  //Desabilita página da proteção de tela
  key.WriteInteger(´NoDispScrSavPage´, UmParaSimZeroParaNao);
  //Desabilita página Configurações
  key.WriteInteger(´NoDispSettingsPage´, UmParaSimZeroParaNao);
  //Deabilita toda propriedade do video
  key.WriteInteger(´NoDispCPL´, UmParaSimZeroParaNao);

  key.CloseKey;
end;

procedure RestringirDesktop(UmParaSimZeroParaNao:Integer);
var
  key:TRegistry;
begin
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(EXPLORER,TRUE);
  //Não mostrar ícones do Desktop
  key.WriteInteger(´NoDeskTop´,UmParaSimZeroParaNao);
  //Desabilita o active Desktop (essa eu não testei ainda)
  key.WriteInteger(´NoActiveDesktop´, UmParaSimZeroParaNao);
  key.CloseKey ;
end;

procedure RestringirIniciar(UmParaSimZeroParaNao:Integer);
var
  key:TRegistry;
begin
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(Explorer,true);

  //Não mostrar o relógio da barra de tarefas
  key.WriteInteger(´HideClock´, UmParaSimZeroParaNao);
  //Desabilita o popup Propriedades da Barra de tarefas
  key.WriteInteger(´NoSetTaskbar´, UmParaSimZeroParaNao);
  //Desabilita o popup completo da barra de tarefas               KEY.WriteInteger(´NoTrayContextMenu´,UmParaSimZeroParaNao);
  //Oculta os icones vizinho ao relógio da barra de tarefas
  kEY.WriteInteger(´NoTrayItemsDisplay´,UmParaSimZeroParaNao);
  key.CloseKey;
end;

procedure RestringirExplorer(UmParaSimZeroParaNao:Integer);
var
  key:TRegistry;
begin
  
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(EXPLORER,TRUE);
  
  //Desabilita a exibição do Drive C  
  If UmParaSimZeroParaNao = 1 then  
  key.WriteInteger(´NoDrives´,4)
  else
  key.WriteInteger(´NoDrives´,0);
 
   //Desabilita o menu Opções de pastas
  key.WriteInteger(´NoFolderOptions´,UmParaSimZeroParaNao);
  //Desabilita o menu Arquivo
  key.WriteInteger(´NoFileMenu´,UmParaSimZeroParaNao);
  //Desabilita o menu Favoritos
  key.WriteInteger(´NoFavoritesMenu´,UmParaSimZeroParaNao);
  //Limpa a lista de documentos recentes ao sair do windows
  key.WriteInteger(´ClearRecentDocsOnExit´,UmParaSimZeroParaNao);
  //Limpa o histórico da internet ao sair (Não testei ainda)
  key.WriteInteger(´NoRecentDocsHistory´,UmParaSimZeroParaNao);
  //Não mostra o ícone do Internet Explore no Desktop (Não testei ainda)
  key.WriteInteger(´NoInternetIcon´, UmParaSimZeroParaNao);
  key.CloseKey;
end;

procedure RestringirSistema(UmParaSimZeroParaNao:Integer);
var
  key:TRegistry;
begin
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;

  key.OpenKey(DOS,TRUE);
  //Desabilita o Prompt de Dos
  key.WriteInteger(´DisableCMD´,UmParaSimZeroParaNao);
  key.CloseKey;

  key.OpenKey(EXPLORER,true);
  //Desabilita o Executar (Tecla Win + R)
  key.WriteInteger(´NoRun´,UmParaSimZeroParaNao);
  //Desabilita o Localizar (Tecla Win + f)
  key.WriteInteger(´NoFind´,UmParaSimZeroParaNao);
  key.CloseKey;

  key.OpenKey(SISTEMA,true);
  //Desabilita o Regedit
  key.WriteInteger(´DisableRegistryTools´,UmParaSimZeroParaNao);
  key.CloseKey;

end;

procedure RestringirPainel(UmParaSimZeroParaNao:integer);
var
  key:TRegistry;
begin
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(EXPLORER , true);
  //Desabilita a propriedade de Sistema  
  key.WriteInteger(´NoPropertiesMyComputer´,UmParaSimZeroParaNao);
  //Não tenho certeza mais parece que desabilita a propriedade de pastas
  key.WriteInteger(´NoSetFolders´,UmParaSimZeroParaNao);
  //Desabilita o painel de controle
  Key.WriteInteger(´NoControlPanel´,UmParaSimZeroParaNao);
  //Bloqueia a adição de novas impressoras
  key.WriteInteger(´NoAddPrinter´,UmParaSimZeroParaNao);
  //Bloqueia a exclusão de impressoras
  key.WriteInteger(´NoDeletePrinter´,UmParaSimZeroParaNao);
  key.CloseKey;
  key.OpenKey(UNINSTALL,TRUE);
  //Desabilita o Adicionar e Remover programas    KEY.WriteInteger(´NoAddRemovePrograms´,UmParaSimZeroParaNao);
  key.CloseKey;

end;

procedure RestringirOutros(UmParaSimZeroParaNao:Integer);
var
  key:TRegistry;
begin
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(EXPLORER,TRUE);
  //Desabilita o botão Logoff do menu Iniciar
  key.WriteInteger(´StartMenuLogOff´,UmParaSimZeroParaNao);
  //Desabilita o botão desligar computador do MenuIniciar
  key.WriteInteger(´NoClose´,UmParaSimZeroParaNao);
  //Não testei ainda mais parece que não gravas as alterações feitas na sessão ao sair
  key.WriteInteger(´NoSaveSettings´,UmParaSimZeroParaNao);
  //Nâo testei ainda mais parece que desabilita as atualizações automáticas do windows
  key.WriteInteger(´NoDevMgrUpdate´,UmParaSimZeroParaNao);
  key.CloseKey;
end;

Begin
  RestringirVideo(1);//Para restringir 
  RestringirVideo(0);//Para desrestringir
end;

var
  key:TRegistry;
begin
  key := TRegistry.Create;
  key.RootKey := HKEY_CURRENT_USER;
  key.OpenKey(EXPLORER,TRUE);
  With QrRestricoes do
  Begin
    //Desabilita o botão Logoff do menu Iniciar
    key.WriteInteger(´StartMenuLogOff´,FieldByName(´NoLogoff´).AsInteger);
    //Desabilita o botão desligar computador do MenuIniciar
    key.WriteInteger(´NoClose´,FieldByName(´NoDesligar´).AsInteger);
    //Não testei ainda mais parece que não gravas as alterações feitas na sessão ao sair
    key.WriteInteger(´NoSaveSettings´,FieldByName(´SalvarSessao´).AsInteger);
    //Nâo testei ainda mais parece que desabilita as atualizações   automáticas do windows
    key.WriteInteger(´NoDevMgrUpdate´,FieldByName(´AtualizarWindows´).AsInteger);
  end;
  key.CloseKey;
end;