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

← →
Alexander © (2002-10-04 11:16) [0]

В чём может быть дело?
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) [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;

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