Текущий архив: 2002.10.24;
Скачать: 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 вся ветка
Текущий архив: 2002.10.24;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
