Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Выбор каталога при помощи Shell API SHBrowseForF

Автор: Timi 23.1.2007, 14:15

Народ вот этот код создает диалоговое окно выбора папки!!
Используется функция 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

Код


  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or BIF_NEWDIALOGSTYLE;