Скачать: CL | DM;

Как работать с SHGetSpecialFolderLocation?   Найти похожие ветки 

← →
Aleksandr ©   (2002-09-11 13:26) [0]

Не знаю, как заставить ее держать выделенной папку по умолчанию и почему этот диалог все время "сзади" оказывается, а не поверх всех окон... Подскажите, как это можно сделать?

var
BI : TBrowseInfo;
s : PChar;
PIDL, ResPIDL: PItemIDList;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_DRIVES, PIDL);
s:=StrAlloc(128);
BI.hwndOwner := Handle;
BI.pszDisplayName := s;
BI.lpszTitle := "SELECT FOLDER TO STORE DATA";
BI.pidlRoot := PIDL;
BI.lpfn := addr(BICallBack);
ResPidl := SHBrowseForFolder(BI);
SHGetPathFromIDList(ResPidl, s);
...
end;

procedure BICallBack(wnd: hWnd; uMsg: UINT; lParam, lpData: LParam) stdcall;
begin
SendMessage(wnd, BFFM_ENABLEOK, 0, 1)
end;

---

← →
Aleksandr ©   (2002-09-11 13:31) [1]

Сорри, с расстройства вклеил SHGetSpecialFolderLocation вместо TBrowseInfo... Вопросы к ней относятся... :(

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c