Текущий архив: 2003.11.27;
Скачать: 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 вся ветка
Текущий архив: 2003.11.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
