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

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

Определение имени компьютера в локальной сети [D7, WinME, Win2k, WinXP]

DrFox ©   (2003-08-31 20:55:00) 

Господа подскажите пожалуйста как опрендилить имя компьютера
в локальной сети
Зарание благодарен !!!! :)

---

Dennisius   (2003-08-31 22:02:00) [1]

for i := 0 to numEntries - 1 do
begin
if nrResource[i].lpRemoteName <> nil then
Form1.Memo1.Lines.Add(nrResource[i].lpRemoteName);
Scan(nrResource[i], false); <<Убери строку получиш только компы
end;

---

TButton   (2003-08-31 21:06:00) [2]

я похожий вопрос задавал в разделе "сети" и что самое приятное - получил ответ, хотя не совсем то... вот что-то найти не могу...наешл. на винте. цитирую

procedure Scan(Res: TNetResource; Root: boolean);
var
hEnum: cardinal;
nrResource: array[0..512] of TNetResource;
dwSize: DWORD;
numEntries: DWORD;
i: DWORD;
dwResult: DWORD;
begin
if Root = True then
dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
0, nil, hEnum)
else
dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
0, @Res, hEnum);
if dwResult = NO_ERROR then
begin
dwSize := SizeOf(nrResource);
numEntries := DWORD(-1);
if WNetEnumResource(hEnum, numEntries, @nrResource, dwSize) = NO_ERROR then
begin
for i := 0 to numEntries - 1 do
begin
if nrResource[i].lpRemoteName <> nil then
Form1.Memo1.Lines.Add(nrResource[i].lpRemoteName);
Scan(nrResource[i], false);
end;
end;
WNetCloseEnum(hEnum);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
R:TNetResource;
begin
Scan(R, True);
end;


тока в результат функция выдает все подряд, включая расшареные папки, рабочии групы, компьютеры.

---

Наверх