Текущий архив: 2004.07.11;
Скачать: CL | DM;

Вниз

TOpenDialog   Найти похожие ветки 

← →
K.o.Z   (2004-06-02 18:19) [0]

TOpenDialog для выбора директорий без VCL на Win32 API.
  Как это осуществить?

---

← →
serge ©   (2004-06-02 18:22) [1]

SHBrowseForFolder

---

← →
WebErr ©   (2004-06-02 18:25) [2]

OPENFILENAME + WinSDK Help

---

← →
DVM ©   (2004-06-02 19:10) [3]

function SelectFolder(Wnd: HWND; Text, Title: PChar; OutPutDir: string; ShowPath: Bool): string;
var
 pidlRoot, resPIDL : PITEMIDLIST ;
 tbi : TBrowseInfoA;
 name, path : Array[0..max_path] of char;
begin
 SHGetSpecialFolderLocation(wnd, CSIDL_DRIVES,PidlRoot);
 tbi.pidlRoot := PidlRoot;
 tbi.lpszTitle := title;
 if (text <> nil) or showPath then tbi.ulFlags := BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT
   else tbi.ulFlags := BIF_RETURNONLYFSDIRS;
 tbi.lpfn:=nil;
 tbi.hwndOwner:=wnd;
 tbi.pszDisplayName:=name;;
 ResPIDL:=SHBrowseForFolder(tbi);
 if ResPIDL <> nil then
   begin
     SHGetPathFromIDList(ResPIDL,path);
     Result:=Path;
   end
 else
   Result:="";
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.07.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c