VPF::Выбор каталога при помощи Shell API SHBrowseForF

Timi

Дата 23.1.2007, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 23.1.2007

Репутация: нет
Всего: нет

Народ вот этот код создает диалоговое окно выбора папки!!
Используется функция Shell API SHBrowseForFolder - позволяет пользователю выбрать каталог.

Код

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;

Всё хорошо! Нехвотает только кнопочки которая создает новую папку.
Вообще код создавия папки такой

Код

begin 
   // Create a new directory in the current directory 
   if CreateDir('TestDir') 
   then ShowMessage('New directory added OK') 
   else ShowMessage('New directory add failed with error : '+ 
          IntToStr(GetLastError)); 
end;

Вот как соединить эти два кода чтобы появилась ещё и кнопочка создать папку!

У меня не получилось!
Помогите!

Snowy

Дата 23.1.2007, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код


  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or BIF_NEWDIALOGSTYLE;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »