Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.01 c
11-89804
France
2003-03-13 13:06
2003.11.27
Почему EditBox пикает?


1-89953
Анна
2003-11-17 19:02
2003.11.27
TListBox


14-90070
aVast
2003-11-05 14:32
2003.11.27
а знаете ли вы что такое DELPHI?


6-90051
Дмитрий В. Белькевич
2003-09-16 23:42
2003.11.27
Ping из-под НЕ админа


14-90121
Agent[007]
2003-11-02 12:53
2003.11.27
Точка и треугольник. (В ПРОСтРАНСТВЕ)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский