Скрытые файлы и папки в OpenDialog

[Veiron]

Как отобразить скрытые и системные файлы в OpenDialog?
Как сделать OpenDialog для открытия папки, а не файла?

[Air]

Сообщение от Veiron

Как сделать OpenDialog для открытия папки, а не файла?

Я использую функцию.

uses filectrl;
...

function GetPath(mes: string):string;
var
Root,Dir:string;
pwRoot:PWideChar;
begin
Root:='';
GetMem(pwRoot,(Length(Root)+1)*2);
pwRoot:=StringToWideChar(Root,pwRoot,MAX_PATH*2);
if SelectDirectory(mes,pwRoot,Dir) then
if length(Dir)=2 then GetPath:=Dir+'\' else GetPath:=Dir else GetPath:='';
end;

[mihali4]

Как отобразить скрытые и системные файлы в OpenDialog?

Последняя из опций у компонента OpenDialog. Поставить в True.

[Veiron]

Air
А как теперь вызвать эту функцию например нажатием на кнопку?

mihali4
Эти все переключатели уже перепробывал, а последний по идеи который должен был открывать скрытые он их не отображает не говоря о системной скрытности... пока в системе не выставить показ скрытых/системных файлов...

[Air]

На счёт системных скрытых файлов, я использовал FileListBox и DirectoryListBox.

Как вызвать.

...
var Path:String;
begin
Path:=GetPath('Выбетите папку');
if Path <> '' then Edit1.Text:=Path;
end;
...

[Air]

Сообщение от Veiron

Как отобразить скрытые и системные файлы в OpenDialog?

Знаю как. Просто при открытии OpenDialog пиши в реестр
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Explorer\A dvancedЭHidden
"Hidden":DWORD - это простые скрытые.
"ShowSuperHidden":DWORD - это системные скрытые

значения
"Hidden"=00000000:DWORD - скрыто
"Hidden"=00000001:DWORD - открыто

"ShowSuperHidden"=00000001:DWOR D - открыто "ShowSuperHidden"=00000000:DWOR D - скрыто

а потом (при закрытии) обратно
Только мне кажется придётся обнавлять каталоги, а может и нет, если OpenDialog откроется после регистрации ключей.

[Квэнди]

Руки вам оторвать за такой способ )