| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Определение имени рабочей группы и ip удаленного компа [D5, Win95/98, Win2k, WinXP]

IceBeerg ©   (2004-05-05 13:51:00) 

Помогите с определением параметров функции NetGroupEnum, по лелпу подобрать немогу :( нужно получить имя текущей рабочей группы.
И подскажите как определить ip удаленного компа по его имени?

---

BlackTr   (2004-05-07 09:35:00) [1]

Ну да :)

---

IceBeerg   (2004-05-06 19:05:00) [2]

Спасибо. Но про ip как. GetHostByName...?

---

BlackTr   (2004-05-05 16:00:00) [3]

Для получения группы я обычно использую:

function GetDomain(Nam: string):string;
var
Buf2:PChar;
BufSize:DWORD;
WorkgroupRS:TNetResource;
buf:Array[1..10] of TNetResource;
s:string;
begin
FillChar(WorkgroupRS,SizeOf(WorkgroupRS),0);
BufSize:=100;
GetMem(Buf2,BufSize );
Result:='';
try
 if WNetGetProviderName(WNNC_NET_LANMAN,Buf2,BufSize)=NO_ERROR then
 begin
  s:=Buf2;
  With WorkgroupRS do
  begin
   dwType := RESOURCETYPE_ANY;
   lpRemoteName:=PChar('\\'+Nam);
   lpProvider:=PChar(s);
  end;
 end;
finally
 FreeMem(Buf2);
end;
  BufSize:=100;    
  if WNetGetResourceParent(@WorkgroupRS,@Buf,BufSize)=NO_ERROR
  then
  begin
   Result:=Buf[1].lpRemoteName;
  end;
end;


---

IceBeerg   (2004-05-05 14:04:00) [4]

Всем лень помочь?
Или никто незнает? <- неверю.

---

Наверх