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

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

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

список расшаренных ресурсов [D6, WinXP]

mifi © (2002-10-18 00:33:00)
Народ подскажите с помощью каких функций
можно получить список расшаренных ресурсов
удаленной машины ( адрес и имя машины известны)
буду рад любым исходникам .

Dr.UFO_51 (2002-10-18 16:49:00) [1]
Держи исходник простейшего сканера расш. ресурсов.

Если в чё обращяйся : CivUFO@mail.ru

//////////////////////////////////////////////////////
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, Buttons;

type
TForm1 = class(TForm)
Button1: TBitBtn;
AddressEdit: TEdit;
Label3: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i,ResourceBuf,EntriesToGet: DWORD;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;
NetContainerToOpen.lpRemoteName:= PChar("\\"+AddressEdit.Text);
NetContainerToOpen.lpProvider:= nil;

WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_CONNECTABLE or RESOURCEUSAGE_CONTAINER,
@NetContainerToOpen, hNetEnum);

while TRUE do
begin
ResourceBuf := sizeof(ResourceBuffer);
EntriesToGet := 2000;

if (NO_ERROR <> WNetEnumResource(hNetEnum,EntriesToGet,@ResourceBuffer,ResourceBuf)) then
exit;

for i := 1 to EntriesToGet do
Memo1.Lines.Add(string(ResourceBuffer[i].lpRemoteName));
end;
end;

end.

Aleksey Pavlov (2002-10-18 14:05:00) [2]
Если удалённый компьютер имеет систему семейства Win2k или NT c SP4 и выше, то можно подключиться с помощью механизма DCOM к соответствующему пространству имён WMI и получить необходимые данные.

Dimka Maslov (2002-10-18 10:53:00) [3]
http://endimus.com/oldcontent/files/index_en.php?page=findcomp.htm

Игорь Шевченко (2002-10-18 09:57:00) [4]
Lan Manager API

Наверх

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