Форум: "Начинающим";
Текущий архив: 2010.02.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Лёша   (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;
Скачать: [xml.tar.bz2];

Наверх

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