hat keiner einen rat, warum dieser code nicht funktioniert ?
versteckte ordner 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;
mfg vader