Текущий архив: 2004.07.25;
Скачать: CL | DM;
Вниз
??? Компонента для выбора компьютера в сети Найти похожие ветки
← →
bukerman © (2004-06-15 16:47) [0]Привет всем!
Подскажите, может кто-то знает, где найти компоненту, с пом. которой можно в диалоговом окне выбрать компьютер в локальной сети. Что-то я не могу найти. С пом. стандартной OpenDlg можно выбрать только файл, но мне нужно именно компьютер.
Большое спасибо за ответы.
Влад.
← →
TUser © (2004-06-15 16:58) [1]ShellTreeView ?
← →
Bukerman © (2004-06-15 17:11) [2]Да нет, не подойдет, нужна невизуальная компонента, точно такая же, как TOpenDlg, только чтобы конечный объект выбора был компьютер, а не файл
← →
Bukerman © (2004-06-15 18:01) [3]неужели никто не делал и не знает?
← →
Петров Денис © (2004-06-15 18:07) [4]> где найти компоненту
Не издевайся.
...
uses ShlObj;
...
var bInfo: BROWSEINFO;
...
begin
try
bInfo.hwndOwner := Handle;
if SHGetSpecialFolderLocation(Handle, CSIDL_NETWORK,
bInfo.pidlRoot) <> NOERROR then
begin
MessageBox(Handle, "Ошибка при просмотре сети.", PChar(Caption),
MB_OK + MB_ICONERROR);
Exit;
end;
GetMem(bInfo.pszDisplayName, MAX_PATH);
try
bInfo.lpszTitle := "Выберите компьютер";
bInfo.ulFlags := BIF_BROWSEFORCOMPUTER;
bInfo.lpfn := nil;
if SHBrowseForFolder(bInfo) <> nil then
begin
Host.Text := bInfo.pszDisplayName;
ActiveControl := Host;
Host.SelectAll;
end;
finally
FreeMem(bInfo.pszDisplayName);
end;
except
on E: Exception do MessageBox(Handle,
PChar("Ошибка при просмотре сети: " + E.Message), PChar(Caption),
MB_OK + MB_ICONERROR);
end;
end;
Как вариант, набросал наспех, просьба без глумления.
← →
Bukerman © (2004-06-15 18:10) [5]спасибо, просто я на винапи не силен, думал есть какая-нить компонента...
← →
Германнн (2004-06-15 20:03) [6]Фунция BrowseComputer из RXLib подойдет?
Страницы: 1 вся ветка
Текущий архив: 2004.07.25;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.027 c
