Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизКак вызвать диалог выбора папки? Найти похожие ветки
← →
Сержик (2002-04-01 13:30) [0]сабж
← →
MBo (2002-04-01 13:32) [1]selectdirectory
← →
Song (2002-04-01 13:35) [2]Unit QDialogs; (будет нужен quintf.dll)
или
Unit FileCtrl;
← →
Сержик (2002-04-01 13:38) [3]selectdirectory у меня под D3 нездоровый выдает - со списком файлов. я хочу как стандартный в винде.
← →
Romul (2002-04-01 13:41) [4]См. пример
Пример:
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;
← →
Сержик (2002-04-01 13:49) [5]Спасибо, братки!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c