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

[beegl]

Всех с наступающим Новым Годом!!! СОбственно, вот такой вопрос, как в Delphi реализовать такое, т.е. отображение скрытых файлов и папок и отображение розширения всех файлов при нажатии на Button1? (прошу прощения, что задал два вопроса в одной теме)

[evg_m]

отображения где?

[beegl]

на диске С и D, это заместь того, чтоб не заходить в Сервис -> Свойства папки и т.д..

[Stilet]

На до поискать соответствующую ветку в реестре, где ставится эти опции и просто обычным способом взаимодействия с реестром их переключать

[beegl]

Stilet, подскажи пожалуйста пример такой реализации.

[Stilet]

Чесслово, я не знаю местоположение этой ветки. Спроси у Гугля где такой переключатель находится.
А как в реестр писать это тебе поиск по форуму покажет, хотя бы по авторану столько примеров писания в реестр что только выбирай.

[Alter]

Вырезал часть у себя из программы, которая должна была разблокировать заблокированные вирусом функции компьютера:
1)
HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentV ersion\Explorer\'+
'Advanced\Folder\Hidden\SHOWALL', 'CheckedValue', 1

2)
HKEY_CURRENT_USER,
'Software\Microsoft\Windows\CurrentV ersion\Explorer\Advanced',
'Hidden', 1

3)
HKEY_CURRENT_USER,
'Software\Microsoft\Windows\CurrentV ersion\Explorer\Advanced',
'SuperHidden', 1

4)то что бывает при вирусе, который сбрасывает показ скрытых папок и файлов. Убирается так:
HKEY_CURRENT_USER,
'Software\Microsoft\Windows\CurrentV ersion\Policies\Explorer',
'NoFolderOptions', 0


Расширения непомню где включать в реестре.

[Alter]

Например:

Uses registry;
.........................................................................................
Function SetInt(Root :HKEY; Key, ValNam :String;
                   Val :LongInt; Crea :Boolean=False):Boolean;

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

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 If SetInt(HKEY_CURRENT_USER,
            'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',
            'NoFolderOptions', 0, True) then
   ShowMessage('Удачно!')
  ELSE
   ShowMessage('НЕудачно');
end;

[beegl]

Alter, при использовании

HKEY_CURRENT_USER,
'Software\Microsoft\Windows\Current Version\Explorer \Advanced',
'Hidden', 1)

выводит ошибку такого плана, смотрим вложение

[Alter]

Тут форум пробелы вставляет лишние:

'Software\Microsoft\Windows\Current Version\Explore r \Advanced'

У меня нормально работает. Версия дельфи?