Ayudenme a deshabilitar las opciones de carpeta.

[scs]

Amigos me gustaría saber como será posible ocultar o desocultar la opción Opciones de Carpeta del menú herramienta de la barra de menú desde un programa creado en Delphi ya que me haría falta ocultar una carpeta y que no me la desoculten por esta opción.

[droguerman]

Una forma sencilla puede ser colocando un atributo de sistema a la carpeta. No se como hacerlo en código pero usando cmd sería algo así como:

Attrib +h +r +s c:\TuCarpeta


Saludos

[look]

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
  reg.WriteInteger('NoFolderOptions','1');
  reg.CloseKey;

end;

para volver a activar

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
  reg.WriteInteger('NoFolderOptions','0');
  reg.CloseKey;


end;

uses Registry

[Neftali [Germán.Estévez]]

Revisa esto, a ver si te sirve también con carpetas.