Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как получить список WorkGroup.. все облазил... [D5]

Wud © (2002-07-02 17:09:00)
Ну достало все.. крыша едет. Нигде нормального ответа не нашел.
Как получить рабочую группу(список, если не одна).
Добавить в Combobox.

Dimka Maslov (2002-07-04 09:37:00) [1]
>asmer
Качай модуль по ccылке выше. Это совсем и не компонент, а класс-оболочка для функций WinAPI, он может получать и список рабочих групп, и ввобще любую информацию о компьтерах в локальной сети, за исключением имён пользователей и паролей.

asmer (2002-07-04 03:07:00) [2]
а скажите, как енто на вин32апи будет, а?.. мож, у кого есть процедурка с использованием вин32апи-функций... мне бы очень хотелось процедурку, которая сканит сеть и перечисляет все рабочие группы в ней... и чтоб ента процедурка использовала исключительно вин32апи, а не какие-нить компоненты... эх... ну не работает у меня то, что в МСДН советуют... (код приводить не буду, он не на делфи совсем... :))

Dimka Maslov (2002-07-03 19:08:00) [3]
uses Dim (модуль используемый модулем Networks)

Wud (2002-07-03 16:45:00) [4]
Насколько я понял, ты все это предлагаешь из первой ссылки.
А жаль... неужели нету ничего подобного типа GetHostByName только с рабочей группой...
И еще, либо я туплю либа тут на самом деле не верно...
Во втором варианте, предложенном тобой GetComputerName в таком виде не прокатывает, чего нужно подставить?

Wud (2002-07-03 16:43:00) [5]
Насколько я понял, ты все это предлагаешь из первой ссылки.
А жаль... неужели нету ничего подобного типа GetHostByName только с рабочей группой...
И еще, либо я туплю либа тут на самом деле не верно...
function GetCompWorkgroup: string; var Network: TNetworkNeighborhood; begin Network:=TNetworkNeighborhood.Create; try Result:=Network.Workgroup[GetComputerName]; finally Network.Free; end; end; !!! Result:=Network.Workgroup[GetComputerName]; !!!

GetComputerName в таком виде не прокатывает, чего нужно подставить?

Wud (2002-07-03 16:43:00) [6]
Насколько я понял, ты все это предлагаешь из первой ссылки.
А жаль... неужели нету ничего подобного типа GetHostByName только с рабочей группой...
И еще, либо я туплю либа тут на самом деле не верно...

function GetCompWorkgroup: string;
var
Network: TNetworkNeighborhood;
begin
Network:=TNetworkNeighborhood.Create;
try
Result:=Network.Workgroup[GetComputerName];
finally
Network.Free;
end;
end;
!!!
Result:=Network.Workgroup[GetComputerName];
!!!

GetComputerName в таком виде не прокатывает, чего нужно подставить?

Dimka Maslov (2002-07-03 09:50:00) [7]
Для получения списка рабочих групп можно воспользоваться следующей процедурой:

procedure GetWorkgroups(List: TStrings);
var
Network: TNetworkNeighborhood;
begin
Network:=TNetworkNeighborhood.Create;
try
List.Assign(Network.Strings);
finally
Network.Free;
end;
end;

Для получения рабочей группы, в которой находится компьютер без сканирования всей сети надо поковырять методы TNetworkNeighborhood.OriginFolder и OriginFolderNT, со сканированием всей сети:

function GetCompWorkgroup: string;
var
Network: TNetworkNeighborhood;
begin
Network:=TNetworkNeighborhood.Create;
try
Result:=Network.Workgroup[GetComputerName];
finally
Network.Free;
end;
end;

Wud (2002-07-02 18:49:00) [8]
Я больше скажу, мне кажется хватит только своей группы рабочей.
Как?
Вот например локальное имечко получить - GetLocalByName
а WorkGroup??? как...

Wud (2002-07-02 18:47:00) [9]
Очень бы хотелось не целый модуль, а всего лишь одну процедурку, функцию...
Кстати в WinApi наверняка есть такая функция... подскажите...
а то перекопал все, что начинается на Get... не нашел.

Dimka Maslov (2002-07-02 17:48:00) [10]
http://endimus.com/oldcontent/files/index_en.php?page=findcomp.htm

Наверх

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