| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вызвать диалог выбора папки? [D3, Win95/98, WinME, NT4, Win2k, WinXP]
Сержик © (2002-04-01 13:30:00)сабж
Сержик (2002-04-01 13:49:00) [1]Спасибо, братки!
Romul (2002-04-01 13:41:00) [2]См. пример
Пример:
uses ShellAPI, ShlObj;
procedure TForm1.Button1Click(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := "Please specify a directory";
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
ShowMessage(TempPath);
GlobalFreePtr(lpItemID);
end;
end;
Сержик (2002-04-01 13:38:00) [3]selectdirectory у меня под D3 нездоровый выдает - со списком файлов. я хочу как стандартный в винде.
Song (2002-04-01 13:35:00) [4]Unit QDialogs; (будет нужен quintf.dll)
или
Unit FileCtrl;
MBo (2002-04-01 13:32:00) [5]selectdirectory
| |
