[DELPHI] Przerobienie procedury

0

Czy wie ktoś jak to przerobić aby było widac ukryte foldery?

function BrowseForFolder:string;
var
Buffer: array[0..MAX_PATH-1]of char;
ItemIdList: PItemIDList;
FBrowseInfo: BrowseInfo;
begin
with FBrowseInfo do
begin
hwndOwner := 0;
pidlRoot := nil;
pszDisplayName := Buffer;
lpszTitle := PChar('Wybierz folder');
ulFlags := BIF_RETURNONLYFSDIRS;
lpfn := nil;
lParam := 0;
end;
ItemIdList := ShBrowseForFolder( FBrowseInfo );
if ItemIDList = nil then Exit;
SHGetPathFromIDList( ItemIDList , Buffer );
result:=Buffer;
end;
0

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp

jak widzisz nie ma tam opcji wyświetlania ukrytych katalogów, więc wydaje mi się, że się nie da w żaden normalny sposób.

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