Скачать: CL | DM;

Помогите с шАрами!   Найти похожие ветки 

← →
ArtUl   (2003-01-30 02:54) [0]

Как узнать какие зашаренные ресурсы есть на компе в сети зная его имя или IP?

---

← →
_Narayan_   (2003-01-30 08:44) [1]

Вот кусок кода - ищет ВСЕ сетевые ресурсы (рекурсивно)
Если что не понятно пиши на мыло, вышлю исходники

procedure TForm1.Button1Click(Sender: TObject);
var Workgroup: TNetResource;
begin
ListBox1.Clear;
FillChar(Workgroup,SizeOf(Workgroup),0);
FindAllComputers(Workgroup);
end;

procedure FindAllComputers(Workgroup: TNetResource);
Var EnumHandle : THandle;
Buf : Array[1..1024] of TNetResource;
BufSize : Cardinal;
Entries : Cardinal;
Result : Integer;
begin
BufSize := SizeOf(Buf);
WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,0,@Workgroup,EnumHandle);
Repeat
Entries := 1;
Result :=WNetEnumResource(EnumHandle,Entries,@Buf,BufSize);
If (Result = NO_ERROR) and (Entries = 1) then
Begin
Application.ProcessMessages;
Form1.ListBox1.Items.Append(Copy(Buf[1].lpRemoteName,3, Length(Buf[1].lpRemoteName)-2));
FindAllComputers(Buf[1]);
end;
Until (Entries <> 1) or (Result <> NO_ERROR);
WNetCloseEnum( EnumHandle );
end;

---

← →
_Narayan_   (2003-01-30 08:47) [2]

Прошу прощения - строчка:

Form1.ListBox1.Items.Append(Copy(Buf[1].lpRemoteName,3, Length(Buf[1].lpRemoteName)-2));

Выглядит просто Form1.ListBox1.Items.Append(Buf[1].lpRemoteName);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.989 c