| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Использование SHBrowseForFolder. [D7, Win2k, WinXP]

novice_man ©   (2006-10-09 14:09:00) 

Каким образом "заставить" открываться окно выбора каталога так, что бы текущим был указан каталог, который нужен мне.

---

novice_man   (2006-10-10 08:45:00) [1]

> keymaster ©   (09.10.06 17:53) [4]

Читаем тему, вопрос? Или чукча не читатель, чукча писатель.
(Ничего личного, бизнес)


> guav ©   (09.10.06 16:16) [2]

Ок, разобрался, все получилось.
Спасибо большое за наводку.
(Как только сам не додумался посмотреть код в FileCtrl)

---

keymaster   (2006-10-09 17:53:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
Dir : String;
begin
 Dir := 'c:\temp';
 SelectDirectory('Select Directory', '', Dir);
end;

---

novice_man   (2006-10-09 16:52:00) [3]

guav ©   (09.10.06 16:16) [2]
Ок, попробую завтра на работе.

---

guav   (2006-10-09 16:16:00) [4]

Есть  пример на Delphi. см function SelectDirectory(var Directory: string;
 Options: TSelectDirOpts; HelpCtx: Longint): Boolean;из FileCtrl .

---

clickmaker   (2006-10-09 16:10:00) [5]

есть пример на си. Переводить лень

int CALLBACK
BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData)
{
switch(uMsg)
{
 case BFFM_INITIALIZED:
 {
  CenterDialog(hwnd);
  SendMessage( hwnd, BFFM_SETSELECTION, 0, lpData );
  break;
 }

 case BFFM_SELCHANGED:
 {
  CHAR szPath[MAX_PATH];
  BOOL bEnableOk = SHGetPathFromIDList((LPITEMIDLIST)(lParam), szPath);
  SendMessage( hwnd, BFFM_ENABLEOK, 0, (LPARAM)(bEnableOk));
  break;
  }
}
return 0;
}

BOOL BrowseForFolder(HWND hwnd, LPSTR lpszDir, int nRootFolder)
{
BROWSEINFO bi;
WCHAR wszPath[MAX_PATH];
IMalloc* Malloc;
IShellFolder* Desktop;
ULONG CharsDone;
DWORD dwAttributes;
LPITEMIDLIST pidlRoot, pidlInitialFolder;
CHAR szTemp[MAX_PATH];
BOOL bRetVal = FALSE;

if ( SUCCEEDED( SHGetMalloc( &Malloc ) ) )
{
 if ( SUCCEEDED( SHGetDesktopFolder( &Desktop ) ) )
 {
  if ( SUCCEEDED( SHGetSpecialFolderLocation( 0, nRootFolder, &pidlRoot ) ) )
  {
   MultiByteToWideChar(CP_ACP, 0, lpszDir, -1, wszPath, MAX_PATH);
   if (!SUCCEEDED( Desktop->ParseDisplayName( 0, NULL, wszPath, &CharsDone,
                                              &pidlInitialFolder, &dwAttributes ) ) )
   {
    GetCurrentDirectory(MAX_PATH, szTemp);
    MultiByteToWideChar(CP_ACP, 0, szTemp, -1, wszPath, MAX_PATH);
    Desktop->ParseDisplayName( 0, NULL, wszPath, &CharsDone,
                              &pidlInitialFolder, &dwAttributes );
   }
   if (pidlInitialFolder)
   {
    ZeroMemory(&bi, sizeof(BROWSEINFO));
    bi.hwndOwner = hwnd;
    bi.lpszTitle = GetResourceStr(IDS_SELECT_FOLDER);
    bi.ulFlags = BIF_RETURNONLYFSDIRS | BIF_NEWDIALOGSTYLE;
    bi.lpfn = BrowseCallbackProc;
    bi.lParam = (LONG)(pidlInitialFolder);
    LPITEMIDLIST pidlResult = SHBrowseForFolder( &bi );
    if (pidlResult)
    {
     if (SHGetPathFromIDList( pidlResult, szTemp ) )
     {
      lstrcpy(lpszDir, szTemp);
      bRetVal = TRUE;
     }
     Malloc->Free( pidlResult );
    }
    Malloc->Free( pidlInitialFolder );
   }
   Malloc->Free ( pidlRoot );
  }
  Desktop->Release();
 }
 Malloc->Release();
}
return bRetVal;
}

---

Наверх