Есть ли компонент для добавления....

← →
cobza (2003-05-17 20:46) [0]

Есть ли компонент для добавления папки, что-то типа opendialoga, только надо добавлять папку, а не файл, или как это сделать?

← →
крот (2003-05-17 22:31) [1]

SHBrowseForFolder, uses ShlAPI

← →
Anatolyk (2003-05-17 22:38) [2]

Если надо просто создать папку, я пользуюсь ForceDirectories.

← →
Anatolyk (2003-05-17 22:40) [3]

Ах, да нужен ведь именно Dialog. Pardon.

← →
Юрий Зотов (2003-05-17 23:21) [4]

Более простой вариант - SelectDirectory

← →
cobza (2003-05-18 02:35) [5]

Мне нужно, визуалино добавлять папку. Что типа как в winamp добавление директории

← →
Юрий Зотов (2003-05-18 07:35) [6]

> cobza (18.05.03 02:35)

Это означает, что ни один из предложенных вариантов Вы так и не попробовали и даже не посмотрели их в справке. Зачем тогда задавать вопросы - непонятно.

← →
Бобко Сергей (2003-05-19 08:47) [7]

function SelectDirectory:string;
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 := CreateIcoForm.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := "Выберите директорию";
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
if Length(StrPas(TempPath)) > 3 then result:=StrPas(TempPath)+"\" else result:=StrPas(TempPath);
GlobalFreePtr(lpItemID);
end;
end;

← →
Palladin (2003-05-19 09:05) [8]

> cobza (18.05.03 02:35)

и что? тебе что то не то предложили?
наверно ты мастер "Copy&Paste"

Есть ли компонент для добавления.... Найти похожие ветки