Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.14;
Скачать: CL | DM;

Вниз

Диалог выбора директории.   Найти похожие ветки 

 
Лёша   (2009-12-16 00:14) [0]

Есть ли готовый сабж в Delphi?


 
Игорь Шевченко ©   (2009-12-16 00:18) [1]

SelectDirectory не подойдет ?


 
Лёша   (2009-12-16 00:29) [2]

Подойдет. Спасибо.


 
antonn ©   (2009-12-16 09:36) [3]

кто то из местных дал - http://desksoft.ru/index.php?downloads=files&id=9


 
Демо ©   (2009-12-16 10:10) [4]

unit DirBrowse;

interface
uses windows, SysUtils, ShlObj;

function BrowseDir(hOwner : Integer; cTitle : string) : string;

implementation

function BrowseDir(hOwner : Integer; cTitle : string) : string;
var
   lpbi : TBROWSEINFO;
   lpBuffer : LPSTR;
   il : PItemIDList;
begin
   ZeroMemory(@lpbi, SizeOf(TBROWSEINFO));
   lpbi.hwndOwner := hOwner;
   lpbi.lpszTitle := LPSTR(cTitle);
   lpbi.ulFlags := BIF_BROWSEINCLUDEFILES;
   lpbi.lpfn := nil;
   lpbi.lParam := 0;
   lpbi.pszDisplayName := StrAlloc(MAX_PATH);

   il := SHBrowseForFolder(lpbi);

   lpBuffer := StrAlloc(MAX_PATH);
   ShGetPathFromIDList(il, lpBuffer);
   Result := string(lpBuffer);
   StrDispose(lpBuffer);
end;
end.



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
4-1228900202
Хмм
2008-12-10 12:10
2010.02.14
Кликер


15-1260394794
kyn66
2009-12-10 00:39
2010.02.14
Avast тормозит загрузку таблиц


2-1260872714
Андрей_11
2009-12-15 13:25
2010.02.14
Combobox


2-1260723444
Дмитрий
2009-12-13 19:57
2010.02.14
Отображение информации из базы данных


15-1260341779
vajo
2009-12-09 09:56
2010.02.14
Помогите с Windows Photo Gallery