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;