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

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

Хочу выбрать компьютер, но приведённый код выдаёт пустую строку!

Alexander ©   (2002-10-04 11:16:00) 

В чём может быть дело?

function OpenDirExecute(Title: string; var Dir: string): Boolean;
var
BI: TBrowseInfo;
Browse: PItemIdList;
DisplayName : array[0..MAX_PATH] of Char;
TempPath: array[0..MAX_PATH] of Char;
begin
Result := False;
ZeroMemory(@BI, SizeOf(TBrowseInfo));
BI.hwndOwner := Applet.Handle;

SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK, BI.pidlRoot);
try
BI.pszDisplayName := @DisplayName;
BI.lpszTitle := PChar(Title);
BI.ulFlags := BIF_BROWSEFORCOMPUTER or BIF_BROWSEINCLUDEFILES or BIF_SHAREABLE;
Browse := SHBrowseForFolder(BI);
if Browse <> nil then
begin
SHGetPathFromIDList(Browse, TempPath);
Dir := TempPath;
CoTaskMemFree(Browse);
Result := True;
end;
finally
CoTaskMemFree(BI.pidlRoot);
end;
end;


---

Marcus   (2002-10-04 11:41:00) [1]

Вот 100% работающий пример:

function BrowseForComputer(Handle: HWND; var ComputerName: String): boolean;
var
BrowseInfo: TBrowseInfo;
Buffer: PChar;
RootItemIDList, ItemIDList: PItemIDList;
ShellMalloc: IMalloc;
begin
Result := false;
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
begin
Buffer := ShellMalloc.Alloc(MAX_PATH);
try
SHGetSpecialFolderLocation(0, CSIDL_NETWORK, RootItemIDList);
with BrowseInfo do
begin
hwndOwner := Handle;
pidlRoot := RootItemIDList;
pszDisplayName := Buffer;
lpszTitle := "Выберите компьютер:";
ulFlags := BIF_BROWSEFORCOMPUTER;
end;
ItemIDList := SHBrowseForFolder(BrowseInfo);
if ItemIDList <> nil then
begin
ComputerName := Buffer;
ShellMalloc.Free(ItemIDList);
Result := true;
end;
finally
ShellMalloc.Free(Buffer);
end;
end;
end;

---

Наверх