Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
ВнизКак открыть дерикторию ? компонентом SaveDialog Найти похожие ветки
← →
Фёдор Мегатронов (2004-08-25 20:20) [0]И этим ли компонентом вообще это делаеться ?
просто нужна менюшка где можно выбрать директорию, нажать на кнопку и чтобы путь дериктории сохранился в Edit
← →
Skier © (2004-08-25 20:29) [1]см. в FileCtrl функцию SelectDirectory(...)
← →
Yanis © (2004-08-25 20:33) [2]
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;
← →
Фёдор Мегатронов (2004-08-25 20:42) [3]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
← →
Skier © (2004-08-25 20:56) [4]>Фёдор Мегатронов (25.08.04 20:42) [3]
> Он пишет - FileCtrl specific to platform
Это не ошибка,а предупреждение и его можно отключить
(если ты не собираешься писать под Kyrix, то отключай смело...)
← →
Фёдор Мегатронов (2004-08-25 23:15) [5]хм.. всё вродебы работает, за исключением того, что в этом окте (где выбирать деректорию) отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...
и интерфейс английский ... немного не в тему 0_о т.к. всё остальное в проге на великом и могучем
← →
TUser © (2004-08-26 06:18) [6]
> отсутствует половина папок 8) т.е. некоторые видны, а некоторые - нет ...
Может им поставлены какие-нибудь аттрибуты, типа "Скрытая"
← →
heady (2004-09-03 21:33) [7]a PathBtnClick откуда брать?
а то на SELDIRHELP ругается - undeclared identifer
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.105 c