Главная страница
    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.715 c
14-1108127746
DSmale
2005-02-11 16:15
2005.03.06
StyleXP


3-1107514881
Yerbol
2005-02-04 14:01
2005.03.06
как быстро открыть БД из 130000 зап с небольшой потерей памяти


14-1108623827
WondeRu
2005-02-17 10:03
2005.03.06
Как построить кривую Безье?


9-1102102454
Domowoi
2004-12-03 22:34
2005.03.06
Вопрос про Collision


14-1107480400
GrayFace
2005-02-04 04:26
2005.03.06
Калькулятор: Как воспринимать 2^3^4?





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