Ver la Versión Completa : Ayudenme a deshabilitar las opciones de carpeta.
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
07-01-2009, 15:00:00
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
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
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]
07-01-2009, 17:26:52
Revisa esto (http://www.swissdelphicenter.ch/en/showcode.php?id=388), a ver si te sirve también con carpetas.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.