Ver Mensaje Individual
  #3  
Antiguo 07-01-2009
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 17
look Va camino a la fama
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
__________________
all your base are belong to us

Última edición por look fecha: 07-01-2009 a las 16:26:01.
Responder Con Cita