| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как открыть дерикторию ? компонентом SaveDialog [D7, WinXP]

Фёдор Мегатронов ©   (2004-08-25 20:20:00) 

И этим ли компонентом вообще это делаеться ?

просто нужна менюшка где можно выбрать директорию, нажать на кнопку и чтобы путь дериктории сохранился в Edit

---

heady   (2004-09-03 21:33:00) [1]

a PathBtnClick откуда брать?
а то на SELDIRHELP ругается - undeclared identifer

---

TUser   (2004-08-26 06:18:00) [2]

> отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...

Может им поставлены какие-нибудь аттрибуты, типа 'Скрытая'

---

Фёдор Мегатронов   (2004-08-25 23:15:00) [3]

хм.. всё вродебы работает, за исключением того, что в этом окте (где выбирать деректорию) отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...
и интерфейс английский ... немного не в тему 0_о т.к. всё остальное в проге на великом и могучем

---

Skier   (2004-08-25 20:56:00) [4]

>Фёдор Мегатронов   (25.08.04 20:42) [3]

> Он пишет - FileCtrl specific to platform

Это не ошибка,а предупреждение и его можно отключить
(если ты не собираешься писать под Kyrix, то отключай смело...)

---

Фёдор Мегатронов   (2004-08-25 20:42:00) [5]

Uses FileCtrl;

procedure TForm2.PathBtnClick(Sender: TObject);
var
Dir : String;
begin
Dir := 'C:\';
 if SelectDirectory(Dir, sdAllowCreate, SELDIRHELP)
  then
   Edit2.Text := Dir;

Он пишет - FileCtrl specific to platform

---

Yanis   (2004-08-25 20:33:00) [6]

uses ShellAPI, ShlObj;

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;

---

Skier   (2004-08-25 20:29:00) [7]

см. в FileCtrl функцию SelectDirectory(...)

---

Наверх