[Delphi] Pokaż Ukrute pliki i foldery

Odpowiedz Nowy wątek
neopl
2007-01-17 21:45
neopl
0

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.

Pozostało 580 znaków

2007-01-19 20:40

Rejestracja: 16 lat temu

Ostatnio: 10 lat temu

0
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.


<font color="red">Konto porzucone</span>

Dzięki wszystkim forumowiczom za lata wspólnych dyskusji; miłej zabawy w programowanie!
Sławomir 'Szczawik' Włodkowski

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0