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

Вниз

путь к папке   Найти похожие ветки 

 
shodan ©   (2005-02-19 23:21) [0]

Привет всем мастерам!
Вопрос: нужно задавать путь к папке, без отображения файлов и с возможностью создания новой папки, как сделать используя диалоговое окно с отображением дерева дисков и папок вроде того, что в internet explorer добавления в избраное...


 
Alexander Panov ©   (2005-02-19 23:58) [1]

function DirSelect(const RootDir: String): String;
var
 Dir: String;
begin
 Dir := RootDir;
 if SelectDirectory(
      Dir,
      [sdAllowCreate, sdPerformCreate, sdPrompt],
      0)
   then Result := Dir
   else Result := "";

end;


 
Техник Харлан   (2005-02-20 00:03) [2]

Постмотри unit FileCtrl, функция SelectDirectory, если её стандартная реализация не подходит, сделая свою


 
GanibalLector ©   (2005-02-20 02:40) [3]

только без создания ;)

  uses shlobj;

function PfBrowseDialog (const Title: string; const Flag,csidl: 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);
 SHGetSpecialFolderLocation
(Application.Handle,csidl,BrowseInfo.pidlRoot);
 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;

procedure TForm1.Button1Click(Sender: TObject);
var Path:String;
begin
 Path:=PfBrowseDialog("Choose a Path,lamers",
 BIF_STATUSTEXT{+BIF_BROWSEINCLUDEFILES},CSIDL_DESKTOP);
 Caption:=Path;
end;



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

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

Наверх





Память: 0.45 MB
Время: 0.057 c
14-1108391307
Anonimus
2005-02-14 17:28
2005.03.06
.inf Файлы. Как писать?


1-1108970782
Pavelkq
2005-02-21 10:26
2005.03.06
Функция с указателем на массив (чайник)


1-1108585953
Арбузов
2005-02-16 23:32
2005.03.06
Нужен наглядный пример создания формы в рантайме


4-1105958331
IllusoryOrion
2005-01-17 13:38
2005.03.06
WM_NCLBUTTONUP


1-1108637607
Lord Zmiy
2005-02-17 13:53
2005.03.06
Замена KEY





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский