Versteckte Ordner einblenden_ausblenden ?

[Vader]

hallo hab da was aber das funktoniert nur teilweise,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var regist: TRegistry;
    begin 
      regist := TRegistry.Create; 
      regist.RootKey := HKEY_CURRENT_USER; 
      regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',true); 
      regist.WriteInteger('Hidden',0);
      regist.free; 
    end;


procedure TForm1.Button2Click(Sender: TObject);
var regist: TRegistry; 
    begin 
      regist := TRegistry.Create; 
      regist.RootKey := HKEY_CURRENT_USER; 
      regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',true); 
      regist.WriteInteger('Hidden',1); 
      regist.free; 
    end;

ausblenden geht aber einblenden nicht mehr ?

mfg vader