CODE:#define BIF_NEWDIALOGSTYLE 64
external(INT, "SHBrowseForFolder", "SHBrowseForFolderA", "Shell32.dll");
external(INT, "SHGetPathFromIDList", "SHGetPathFromIDListA", "Shell32.dll");
createdialog(2);
char path[260];
int BROWSEINFO[8]={gethwnd(2), 0, address(#path[0]), 0, BIF_NEWDIALOGSTYLE, 0, 0, 0};
int PIDL=SHBrowseForFolder(address(#BROWSEINFO[0]));
if(PIDL)
{
messagebox(format(#path[0])); // выбранная папка
if(SHGetPathFromIDList(PIDL, address(#path[0])))messagebox(format(#path[0])); // полный путь
}
else messagebox("Ничего не выбрано"); |