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

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

← →
Dmitriy M. Volkov   (2003-11-14 10:44) [0]

Доброе время суток!

Не подскажите ли, как можно, используя стандартный диалог TOpenDialog, открыть папку? Т.е. не файлы в папке, а именно саму папку? Или для этого есть какой-нть другой компонент?

Спасибо.

---

← →
Maxud ©   (2003-11-14 10:52) [1]

uses FileCtrl;
var s: string;
begin
s := "C:\Windows";
if not SelectDirectory(s, "Open folder...", s) then ...
else Label1.Caption := s;
end;

---

← →
serge   (2003-11-14 10:55) [2]

Не очень понятен вопрос - как открыть папку ??
Mojei eto tebe podoidet

Brings up a dialog to allow the user to enter a directory name.
Unit FileCtrl
Category dialog and message routines

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

---

← →
Dmitriy M. Volkov   (2003-11-14 11:20) [3]

Ага, вот это как раз то, что мне было нужно! Спасибо!

---

← →
TUser ©   (2003-11-14 11:21) [4]

В RxLib ечтьт такой компонент.

---

← →
Dmitriy M. Volkov   (2003-11-16 00:03) [5]

Кстати, мне понравилось вот такое решение:

procedure TfmSettings.BitBtn1Click(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 := fmSettings.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);
edtFolderWithImages.Text := TempPath;
GlobalFreePtr(lpItemID);
end;
end;


---

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

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



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