Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
1-78402
amo
2002-10-14 16:33
2002.10.24
раскладка клавиатуры


3-78284
User0
2002-10-01 14:26
2002.10.24
Почему Event-ы не ловятся ?


1-78416
cosinus
2002-10-15 16:37
2002.10.24
Как избавиться от системного beep?


1-78406
Лана Розанова
2002-10-15 11:21
2002.10.24
HTML


4-78722
Molochai
2002-09-11 09:17
2002.10.24
Задания принтера(как отследить)