Скачать: CL | DM;

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

← →
som   (2003-07-24 14:00) [0]

В закладки "Dialogs" есть диалог открытия файла, но нет диалога открытия директории, можно ли как то вызвать этот стандартный диалог, не ставя дополнительных компонент ?

---

← →
Переяслов Григорий ©   (2003-07-24 14:02) [1]

Есть куча стронних компонент

---

← →
Pauk   (2003-07-24 14:04) [2]

uses ShellAPI, ShlObj;


function Dialog(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:="";
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := TempPath;
GlobalFreePtr(lpItemID);
end;
end;


ShowMessage(Dialog("", BIF_RETURNONLYFSDIRS));

---

← →
Pauk   (2003-07-24 14:16) [3]

как понимаешь, вырвано с корнями из WinApi и не требует компонентов

---

← →
Юрий Зотов ©   (2003-07-24 14:21) [4]

F1 + SelectDirectory

---

← →
Толик ©   (2003-07-24 14:21) [5]

function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

---

← →
som   (2003-07-24 14:36) [6]

спасибочки..

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c