Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Вниз
Как в Delphi определить рабочую группу компьютера Найти похожие ветки
← →
Yrasikombo (2003-10-12 13:12) [0]Как в Delphi определить рабочую группу компьютера
← →
Rouse_ (2003-10-12 13:28) [1]Вот тебе выдержка из готовящейся статьи Мониторинг сетей в Дельфи - часть вторая, которая будет опубликованна на этом сайте.
// Задача этой функции предельно проста:
// При известном имени компьютера мы можем заполнить структуру
// и передать ее функции WNetGetResourceParent которая и вернет
// нам предка, в моем случае группу. Как она будет вести себя
// при наличии доменов, не знаю. Проверишь сам...
// Да, чуть не забыл, если имя компьютера есть в кэше, а сам
// компьютер отключен, то в качестве результата будет либо
// пустая строка либо "Нет данных"...
// Поэтому опять придется сканировать, если слишком уж критично...
function TMainForm.GetGroup(const CompName: String): String;
var
CurrRes: TNetResource;
ParentName: array [0..1] of TNetResource;
Enum: DWORD;
Err: Integer;
begin
with CurrRes do
begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_DISK;
dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
dwUsage := RESOURCEUSAGE_CONTAINER;
lpLocalName := "";
lpRemoteName := PChar("\\" + CompName);
lpComment := "";
lpProvider := nil;
end;
Enum := SizeOf(ParentName);
Err := WNetGetResourceParent(@CurrRes, @ParentName, Enum);
if Err = NO_ERROR then
begin
Result := ParentName[0].lpRemoteName;
if Result = "" then Result := RES_COM_NO;
end
else
MessageDlg(ERR_PAR, mtError, [mbOK], 0);
end;
Желаю успехов
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c