Форум: "Потрепаться";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];

Вниз

Как открыть сетевое окружение?   Найти похожие ветки 

← →
OlegBat   (2003-05-15 09:26) [0]

Используя функции Win API.

---

← →
clickmaker   (2003-05-15 12:11) [1]

WNetOpenEnum + последовательные вызовы WNetEnumResource, пока не перечислится всё

---

← →
Romkin   (2003-05-15 13:35) [2]

Лучше не надо :-)) Достаточно порытся в исходниках

function GetComputerName: string;
var
BrowseInfo: TBrowseInfo;
ItemIDList: PItemIDList;
ComputerName: array[0..MAX_PATH] of Char;
Title: string;
begin
if Failed(SHGetSpecialFolderLocation(Application.Handle,
CSIDL_NETWORK, ItemIDList)) then
raise Exception.Create("Что-то не так");
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
BrowseInfo.hwndOwner := Application.Handle; //Form1.Handle;
BrowseInfo.pidlRoot := ItemIDList;
BrowseInfo.pszDisplayName := ComputerName;
Title := "Какой сервер?";
BrowseInfo.lpszTitle := PChar(Pointer(Title));
BrowseInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
Result := "";
if SHBrowseForFolder(BrowseInfo) <> nil; then
Result := ComputerName;
end;


---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c