Отображение скрытых файлов и папок и отображение розширения всех файлов

[beegl]

Delphi 7.0, .. всё ошибку не выводит, только вот не пойму как оно срабатует, обыно когда заходиш в Серви -> Свойства папки .. вабрав и применив, например не отображать скрытые папки и файлы, и кокда применяеш должно происходить мерцание, какбудто нажимаеш на F5(обновить). Обьесни пожалуйста, вот так я оформил код

uses 
     registry;
type
  TForm1 = class(TForm)
    tAtomikButton1: tAtomikButton;
    tAtomikButton2: tAtomikButton;
    tAtomikButton3: tAtomikButton;
    procedure tAtomikButton1Click(Sender: TObject);
    procedure tAtomikButton2Click(Sender: TObject);
    procedure tAtomikButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 Function SetInt(Root :HKEY; Key, ValNam :String;
                   Val :LongInt; Crea :Boolean=False):Boolean;
var
  Form1: TForm1;

implementation
Function SetInt(Root :HKEY; Key, ValNam :String; Val :LongInt; Crea :Boolean=False):Boolean;
var Reg :TRegistry;
begin //
 Result:=False;
 Reg := TRegistry.Create;
  Try
 Reg.RootKey := Root;
 Reg.OpenKey(Key, Crea);
 Reg.WriteInteger(ValNam, Val);
  Finally
 Result := (Reg.ReadInteger(ValNam)=Val);
 Reg.CloseKey;
 Reg.Free;
  End;
end;
{$R *.dfm}

procedure TForm1.tAtomikButton1Click(Sender: TObject);
begin
 If SetInt(HKEY_CURRENT_USER,
'Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced',
'SuperHidden', 1) then
   ShowMessage('Удачно!')
  ELSE
   ShowMessage('НЕудачно');
end;