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