Versteckte Ordner einblenden_ausblenden ?

[Vader]

hallo

hab das so probiert, " ausblenden "

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',2);
      Windows.SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
      regist.free; 
    end;

geht aber nicht !!

mfg vader