Как вывести диалоговое окно для выбора соседних компьютеров? В Deplhi получается а в Builder'е не удается подключить модуль ShlObj. Ежели есть исходник — нарисуйте.

Смотрю, никто не ответил на мой запрос :-(

KD>Как вывести диалоговое окно для выбора соседних компьютеров? В Deplhi получается а в Builder'е не удается подключить модуль ShlObj. Ежели есть исходник — нарисуйте.

Ладно, сам нашел.

#define NO_WIN32_LEAN_AND_MEAN // пишем это перед всеми include'ами

// Никакого shlobj.h подключать не надо

// Пишем такую функцию:
void __fastcall TfrmSettings::sbtServerClick(TObject *Sender)
{
BROWSEINFO bi;
LPITEMIDLIST ItemID;
char ComputerName[MAX_PATH];
SHGetSpecialFolderLocation(Application->Handle,CSIDL_NETWORK,&ItemID);
memset(&bi,0,sizeof(BROWSEINFO));
bi.hwndOwner=Application->Handle;
bi.pidlRoot=ItemID;
bi.pszDisplayName=ComputerName;
bi.lpszTitle="Укажите Ваш сервер БД";
bi.ulFlags=BIF_BROWSEFORCOMPUTER;
if (SHBrowseForFolder(&bi)==NULL) edtServer->Text=""; else edtServer->Text=ComputerName;
}