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

Вниз

OpenDialog для выбора папки   Найти похожие ветки 

 
Митяй2 ©   (2003-07-16 06:47) [0]

Мастера, скажите можно ли с помощью обычного OpenDialog выбрать папку?


 
Крот ©   (2003-07-16 06:56) [1]

uses FileCtrl
SelectDirectory


 
Rouse_ ©   (2003-07-16 07:05) [2]

////////////////////////////////////////////////////////////////////////////////
//
// Показа диалога выбора директории
//

function TMainForm.SelectDirectory: String;
var
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 := Handle;
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.lpszTitle := "Specify a directory";
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if Assigned(lpItemId) then begin
SHGetPathFromIDList(lpItemID, TempPath);
GlobalFreePtr(lpItemID);
end else Result := "";
Result := String(TempPath);
end;

Желаю успехов


 
Митяй2 ©   (2003-07-16 08:28) [3]

Спасибо.

И теплых летних деньков Вам.



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-100802
tipman
2003-07-17 10:54
2003.07.31
разделитель целой и дрбной части


6-100858
vald
2003-05-17 13:01
2003.07.31
MSMQ


6-100869
sergey2
2003-05-15 01:22
2003.07.31
Как сделать фильтрацию содержимого в TWebBrowser или TEmbeddedWB?


11-100651
Arhangel
2002-11-30 15:20
2003.07.31
Есть архив?


1-100718
vic_774N
2003-07-16 00:16
2003.07.31
Маленькая проблемка с MSWord