[Delphi] Pokaż Ukrute pliki i foldery

Znacie jakąś procedurkę dla delphi, aby windows pokazywał lub ukrywał ukrute pliki i foldery ?
Chodzi mi o tą funkcję w opcjach folderów, abym mógł ją zmienić z poziomu delphi.

uses Registry;

procedure ShowHiddenFilesAndFolders(Show:boolean);
const Values:array[boolean] of integer = (2, 1);
begin
with TRegistry.Create() do
  begin
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', TRUE) then
      begin
      WriteInteger('Hidden', Values[Show]);
      CloseKey();
      end
  except
    end;
  Free;
  end;
end;

Przykład użycia - pokazanie plików

ShowHiddenFilesAndFolders(TRUE);

Pamiętaj tylko, że wymaga to odświeżenia okna listującego pliki. Dodatkowo czasem Explorer buforuje ustawienia i odświeżenie czasem działa dopiero po dłuższej chwili.