1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| procedure ChangeHiddenFilesOptions;
const
HIDDEN_FILES_CODE = 2;
// 0 : Do not show hidden or system files
// 1 : Show all files
// 2 : Do not show hidden files
var
TheRegistry: TRegistry;
begin
TheRegistry := TRegistry.Create;
try
TheRegistry.RootKey := HKEY_CURRENT_USER;
if TheRegistry.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced', False) then
begin
try
TheRegistry.WriteInteger('Hidden', HIDDEN_FILES_CODE);
finally
TheRegistry.CloseKey;
end;
end;
finally
TheRegistry.Free;
end;
end; |
Partager