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

Вниз

Диалог сохранения в папку   Найти похожие ветки 

← →
Olegka ©   (2003-08-07 17:30) [0]

Народ, нужен диалог сохранения в выбором только папки. Что подскажите?
Заранее спасибо

---

← →
Skier ©   (2003-08-07 17:32) [1]

SelectDirectory(...) ?

---

← →
Olegka ©   (2003-08-07 17:36) [2]

не понял :(

---

← →
Skier ©   (2003-08-07 17:37) [3]

Qvod licet jovi non licet bovi

---

← →
Olegka ©   (2003-08-07 17:39) [4]

ты мне ответь по-человечески. Не можешь, не знаешь - не лезь!

---

← →
Skier ©   (2003-08-07 17:40) [5]

OK

---

← →
dez ©   (2003-08-07 17:40) [6]

пользуйся RxLib - там есть

---

← →
Olegka ©   (2003-08-07 17:52) [7]

не нашел я в RxLib-е :(

---

← →
dez ©   (2003-08-07 17:59) [8]

rxcontrols -> directoryedit

---

← →
Olegka ©   (2003-08-07 18:04) [9]

Спасибо, друг

---

← →
Pauk   (2003-08-07 18:34) [10]

uses
ShellAPI, ShlObj;

function Dialog(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:="";
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := TempPath;
GlobalFreePtr(lpItemID);
( "Вот такая хрень", BIF_RETURNONLYFSDIRS) uses
ShellAPI, ShlObj;

function Dialog(const Title: string; const Flag: integer): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:="";
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := TempPath;
GlobalFreePtr(lpItemID);
end;
end;

Dialog("Вот такая хрень", BIF_RETURNONLYFSDIRS);
возвращает название папки



---

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

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

Наверх

Память: 0.48 MB
Время: 0.013 c