versteckte dateien immer wieder verstecken?

[FlinkerFinger]

okay habs selbst gefunden ... für alle die es interessiert

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',1);
      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',2);
      regist.free;
    end;

das eine schaltet die option ein , das andere die option aus ;D

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]