Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

Простой вопрос!   Найти похожие ветки 

 
pakko ©   (2002-02-15 21:24) [0]

Необходимо открыть папку а не файл. Это делать через OpenDialog или ещё как. Подскажите плиз!!!


 
MBo ©   (2002-02-15 21:33) [1]

а что такое открыть папку?


 
pakko ©   (2002-02-15 21:35) [2]

В стандартном виндузовском диалоге открытия если через opendialog, то только файл можно выбрать и нажать открыть. Мне нужно папку.


 
Юрий Зотов (M) ©   (2002-02-15 21:44) [3]

См. функции SelectDirectory (Delphi) и SHBrowseForFolder (API). Они и диалог покажут, и прогресс отразят (если надо) и т.д.


 
MARcoDEN ©   (2002-02-16 11:32) [4]

Можно также использовать ShellExecute c параметром explore


 
Petrovich ©   (2002-02-16 13:55) [5]

Надо использовать не OpenDialog а RX компонент Directory Edit


 
pakko ©   (2002-02-16 16:10) [6]

А где взять сей компонент?


 
pakko ©   (2002-02-16 17:59) [7]

Подскажите?


 
[NIKEL] ©   (2002-02-16 18:15) [8]

MARcoDEN правильно говорит :
вот эта строчка откроет папку С:\Program Files

ShellExecute(Handle,"open","С:\\Program Files",NULL,NULL,SW_RESTORE);

а эта откроет Проводник с открытой папкой С:\Program Files

ShellExecute(Handle,"explore","С:\\Program Files",NULL,NULL,SW_RESTORE);

и не надо париться с компанентами :)


 
panov (M) ©   (2002-02-16 18:19) [9]

А что, TDirectoryListBox тоже не устраивает?


 
Miwa ©   (2002-02-16 23:35) [10]

В D6 Personal на странице Samples есть ShellTreeWiev - она тоже не подходит?


 
VID ©   (2002-02-17 02:43) [11]

Лови код:

uses ShellAPI, ShlObj;

procedure TForm1.Button1Click(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 := Form1.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);
ShowMessage(TempPath);
GlobalFreePtr(lpItemID);
end;
end;
Переменная TempPath содержит полный путь к выбранной папке. Можешь оформить как культурную функцию.

PS: Ю.Зотов такой подход не одобрит, однако, это реальная помощь. :))


 
pakko ©   (2002-02-17 13:03) [12]

Спасибо всем!!!



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

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.011 c
3-9051
vopros
2002-02-06 11:20
2002.03.04
А как в запросе ссуммирровать вычисляемые поля ?


6-9266
Artis
2001-12-12 18:46
2002.03.04
Возник такой вопрос - серверу посылается запрос на что он выдает информацию обратно как в цикле посылать запрос и переходить к следующему значению только после того как будет получен и обработан ответ???


6-9261
Snake2000
2001-12-13 13:22
2002.03.04
IP


7-9316
Aza
2001-11-27 06:58
2002.03.04
Hook на клаву


1-9210
Serghei
2002-02-15 09:01
2002.03.04
Копирование компонентов!!!