如何用api获取局域网同一工作组内所有机器名？(20分)

www · 2003-08-14

http://www.tommstudio.com/newclub30/d_viewdownload.asp?type=bianchengjiqiao&id=7128

Carem · 2003-08-14

该页无法显示 您要查看的页当前不可用。网站可能遇到技术问题，或者您需要调整浏览器设置。

www · 2003-08-14

还有这里 http://www.tommstudio.com/newclub30/d_viewdownload.asp?type=bianchengjiqiao&id=7010

delphi_Dcs · 2003-08-14

我自己写的一个函数： Function NetGetUsers(GroupName: string; var List: TListBox): Boolean; type   TNetResourceArray = ^TNetResource;//网络类型的数组 Var   i: Integer;   Buf: Pointer;   Temp: TNetResourceArray;   lphEnum: THandle;   NetResource: TNetResource;   Count,BufSize,Res: DWord; begin   Result := False;   List.Clear;   FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息   NetResource.lpRemoteName := @GroupName[1];//指定工作组名称   NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）   NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;   NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息   //获取指定工作组的网络资源句柄   Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,                         RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);   if Res <> NO_ERROR then Exit; //执行失败   while True do//列举指定工作组的网络资源   begin     Count := $FFFFFFFF;//不限资源数目     BufSize := 8192;//缓冲区大小设置为8K     GetMem(Buf, BufSize);//申请内存，用于获取工作组信息     //获取计算机名称     Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);     if Res = ERROR_NO_MORE_ITEMS then break;//资源列举完毕     if (Res <> NO_ERROR) then Exit;//执行失败     Temp := TNetResourceArray(Buf);     for i := 0 to Count - 1 do//列举工作组的计算机名称     begin       //获取工作组的计算机名称，+2表示删除"//"，如//wangfajun=>wangfajun       List.Items.Add(Temp^.lpRemoteName + 2);       inc(Temp);     end;   end;   Res := WNetCloseEnum(lphEnum);//关闭一次列举   if Res <> NO_ERROR then exit;//执行失败   Result := True;   FreeMem(Buf); end;

Carem · 2003-08-14

我是初学者，请问如何用delphi_Dcs,的函数将工作组内的计算名加到combobox里面？

app2001 · 2003-08-14

List.Items.Add(Temp^.lpRemoteName + 2); 把这句的list改成你的combobox名字，就算是初学，也因该学会看书吧？

Carem · 2003-08-14

Temp^.  出错，为何说temp是未声明的标示符？

Carem · 2003-08-14

form1.combobox1.Items.Add(Temp^.lpRemoteName + 2); 这样增加之后就可以编译，但是combobox1里面没有东西阿！怎么解决〉？ 谢谢！！

D_Dcs · 2003-08-14

先这样combobox1.Items.clear, 然后调用函数时改变一下你要的参数

delphi_Dcs · 2003-08-14

把var List: TListBox  改成  Var List:TComboBox啊，试试吧

Carem · 2003-08-14

Function NetGetUsers(GroupName: string; var List: Tcombobox): Boolean; type  TNetResourceArray = ^TNetResource;//网络类型的数组 Var  i: Integer;  Buf: Pointer;  Temp: TNetResourceArray;  lphEnum: THandle;  NetResource: TNetResource;  Count,BufSize,Res: DWord; begin  Result := False;  form1.combobox1.Items.clear;  FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息  NetResource.lpRemoteName := @GroupName[1];//指定工作组名称  NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）  NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;  NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息  //获取指定工作组的网络资源句柄  Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,                        RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);  if Res <> NO_ERROR then Exit; //执行失败  while True do//列举指定工作组的网络资源  begin    Count := $FFFFFFFF;//不限资源数目    BufSize := 8192;//缓冲区大小设置为8K    GetMem(Buf, BufSize);//申请内存，用于获取工作组信息    //获取计算机名称    Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);    if Res = ERROR_NO_MORE_ITEMS then break;//资源列举完毕    if (Res <> NO_ERROR) then Exit;//执行失败    Temp := TNetResourceArray(Buf);    for i := 0 to Count - 1 do//列举工作组的计算机名称    begin      //获取工作组的计算机名称，+2表示删除"//"，如//wangfajun=>wangfajun      form1.combobox1.Items.Add(Temp^.lpRemoteName + 2);      inc(Temp);    end;  end;  Res := WNetCloseEnum(lphEnum);//关闭一次列举  if Res <> NO_ERROR then exit;//执行失败  Result := True;  FreeMem(Buf); end; 还是不行！

app2001 · 2003-08-14

唉，你得象大家保证，你是在有不止一台机子的网络上运行这个程序的先才行呀

Carem · 2003-08-14

我是只有一台机器运行这个程序！有什么问题么？

Carem · 2003-08-14

我在局域网里面，但是只有我一台机器运行这个程序！

app2001 · 2003-08-14

你的工作组有几台机？你能从你的工作组中看到几台电脑？

Carem · 2003-08-14

to app2001, 所有！

jingtao · 2003-08-14

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     ComboBox1: TComboBox;     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} type   TNetResourceArray = ^TNetResource;  //网络资源类型的数组 Function GetServerList( var List : TStringList ) : Boolean; Var NetResource : TNetResource; Buf : Pointer; Count,BufSize,Res : DWORD; lphEnum : THandle; p:TNetResourceArray; i,j : SmallInt; NetworkTypeList : TList; Begin Result := False; NetworkTypeList := TList.Create; List.Clear; Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum); //获取整个网络中的文件资源的句柄，lphEnum为返回名柄 If Res <> NO_ERROR Then exit; //执行失败，退出 //执行成功，开始获取整个网络中的网络类型信息 Count := $FFFFFFFF; //不限资源数目 BufSize := 8192; //缓冲区大小设置为8K GetMem(Buf, BufSize); //申请内存，用于获取工作组信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕 or (Res <> NO_ERROR ) //执行失败 Then Exit; P := TNetResourceArray(Buf); For I := 0 To Count - 1 Do //记录各个网络类型的信息 Begin NetworkTypeList.Add(p); Inc(P); End; //WNetCloseEnum关闭一个列举句柄 Res:= WNetCloseEnum(lphEnum); //关闭一次列举 If Res <> NO_ERROR Then exit; For J := 0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称 Begin //列出一个网络类型中的所有工作组名称 NetResource := TNetResource(NetworkTypeList.Items[J]^); //网络类型信息 //获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄 Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum); If Res <> NO_ERROR Then break; //执行失败 While true Do //列举一个网络类型的所有工作组的信息 Begin Count := $FFFFFFFF; //不限资源数目 BufSize := 8192; //缓冲区大小设置为8K GetMem(Buf, BufSize); //申请内存，用于获取工作组信息，获取一个网络类型的文件资源信息， Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕 or (Res <> NO_ERROR) //执行失败 then break; P := TNetResourceArray(Buf); For I := 0 To Count - 1 Do //列举各个工作组的信息 Begin List.Add( StrPAS( P^.lpRemoteName )); //取得一个工作组的名称 Inc(P); End; End; Res := WNetCloseEnum(lphEnum); //关闭一次列举 If Res <> NO_ERROR Then break; //执行失败 End; Result := True; FreeMem(Buf); NetworkTypeList.Destroy; End; Function GetUsers(GroupName:string;var List:TStringList):Boolean; Var   NetResource:TNetResource;   Buf : Pointer;   Count,BufSize,Res : DWord;   Ind : Integer;   lphEnum : THandle;   Temp:TNetResourceArray; Begin   Result := False;   List.Clear;   FillChar(NetResource, SizeOf(NetResource), 0);  //初始化网络层次信息   NetResource.lpRemoteName := @GroupName[1];      //指定工作组名称   NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）   NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;   NetResource.dwScope := RESOURCETYPE_DISK;      //列举文件资源信息   Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum); If Res <> NO_ERROR Then Exit; //执行失败  While True Do          //列举指定工作组的网络资源   Begin    Count := $FFFFFFFF; //不限资源数目    BufSize := 8192;    //缓冲区大小设置为8K    GetMem(Buf, BufSize);//申请内存，用于获取工作组信息,获取计算机名称    Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);   If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕   If (Res <> NO_ERROR) then Exit;//执行失败     Temp := TNetResourceArray(Buf);    For Ind := 0 to Count - 1 do//列举工作组的计算机名称      Begin        List.Add(Temp^.lpRemoteName);        Inc(Temp);      End;  End;  Res := WNetCloseEnum(lphEnum);//关闭一次列举 If Res <> NO_ERROR Then exit;//执行失败   Result:=True;   FreeMem(Buf); end; procedure TForm1.Button1Click(Sender: TObject); var GroupList:TStringList; ComputerList:TStringList; i,j:integer; begin GroupList:=TStringList.Create; if not GetServerList(GroupList) then //取得网络内所有工作组 begin GroupList.Free; Exit; end; ComputerList:=TStringList.Create; for i:=0 to GroupList.Count-1 do//枚举没个工作组的计算机 begin ComputerList.Clear; if GetUsers(GroupList.Strings,ComputerList) then   for j:=0 to ComputerList.Count-1 do     ComboBox1.Items.Add(ComputerList.Strings[j]); end; if ComboBox1.Items.Count>0 then ComboBox1.ItemIndex:=0; GroupList.Free; ComputerList.Free; end; end.

Carem · 2003-08-14

我将所有代码放出来了！大家看看吧！为什么我总是不行！ unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, TFlatSpeedButtonUnit, Buttons; type   TForm1 = class(TForm)     ComboBox1: TComboBox;     ComboBox2: TComboBox;     GroupBox1: TGroupBox;     RadioButton1: TRadioButton;     RadioButton2: TRadioButton;     Label1: TLabel;     SpeedButton1: TSpeedButton;     procedure RadioButton1Click(Sender: TObject);     procedure RadioButton2Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure SpeedButton1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;  implementation function NetMessageBufferSend(servername

WideChar;msgname

WideChar; fromname

WideChar;buf

WideChar;buflen

WORD)

WORD;stdcall;external 'netapi32.dll' {$R *.dfm} type  TNetResourceArray = ^TNetResource;  //网络资源类型的数组 Function GetServerList( var List : TStringList ) : Boolean; Var NetResource : TNetResource; Buf : Pointer; Count,BufSize,Res : DWORD; lphEnum : THandle; p:TNetResourceArray; i,j : SmallInt; NetworkTypeList : TList; Begin Result := False; NetworkTypeList := TList.Create; List.Clear; Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum); //获取整个网络中的文件资源的句柄，lphEnum为返回名柄 If Res <> NO_ERROR Then exit; //执行失败，退出 //执行成功，开始获取整个网络中的网络类型信息 Count := $FFFFFFFF; //不限资源数目 BufSize := 8192; //缓冲区大小设置为8K GetMem(Buf, BufSize); //申请内存，用于获取工作组信息 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕 or (Res <> NO_ERROR ) //执行失败 Then Exit; P := TNetResourceArray(Buf); For I := 0 To Count - 1 Do //记录各个网络类型的信息 Begin NetworkTypeList.Add(p); Inc(P); End; //WNetCloseEnum关闭一个列举句柄 Res:= WNetCloseEnum(lphEnum); //关闭一次列举 If Res <> NO_ERROR Then exit; For J := 0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称 Begin //列出一个网络类型中的所有工作组名称 NetResource := TNetResource(NetworkTypeList.Items[J]^); //网络类型信息 //获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄 Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum); If Res <> NO_ERROR Then break; //执行失败 While true Do //列举一个网络类型的所有工作组的信息 Begin Count := $FFFFFFFF; //不限资源数目 BufSize := 8192; //缓冲区大小设置为8K GetMem(Buf, BufSize); //申请内存，用于获取工作组信息，获取一个网络类型的文件资源信息， Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize); If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕 or (Res <> NO_ERROR) //执行失败 then break; P := TNetResourceArray(Buf); For I := 0 To Count - 1 Do //列举各个工作组的信息 Begin List.Add( StrPAS( P^.lpRemoteName )); //取得一个工作组的名称 Inc(P); End; End; Res := WNetCloseEnum(lphEnum); //关闭一次列举 If Res <> NO_ERROR Then break; //执行失败 End; Result := True; FreeMem(Buf); NetworkTypeList.Destroy; End; Function GetUsers(GroupName:string;var List:TStringList):Boolean; Var  NetResource:TNetResource;  Buf : Pointer;  Count,BufSize,Res : DWord;  Ind : Integer;  lphEnum : THandle;  Temp:TNetResourceArray; Begin  Result := False;  List.Clear;  FillChar(NetResource, SizeOf(NetResource), 0);  //初始化网络层次信息  NetResource.lpRemoteName := @GroupName[1];      //指定工作组名称  NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）  NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;  NetResource.dwScope := RESOURCETYPE_DISK;      //列举文件资源信息  Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum); If Res <> NO_ERROR Then Exit; //执行失败 While True Do          //列举指定工作组的网络资源  Begin   Count := $FFFFFFFF; //不限资源数目   BufSize := 8192;    //缓冲区大小设置为8K   GetMem(Buf, BufSize);//申请内存，用于获取工作组信息,获取计算机名称   Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);  If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕  If (Res <> NO_ERROR) then Exit;//执行失败    Temp := TNetResourceArray(Buf);   For Ind := 0 to Count - 1 do//列举工作组的计算机名称     Begin       List.Add(Temp^.lpRemoteName);       Inc(Temp);     End; End; Res := WNetCloseEnum(lphEnum);//关闭一次列举 If Res <> NO_ERROR Then exit;//执行失败  Result:=True;  FreeMem(Buf); end; procedure TForm1.RadioButton1Click(Sender: TObject); begin combobox1.Visible :=true; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin combobox1.Visible :=false; end; procedure TForm1.FormCreate(Sender: TObject); var  ZAppName: array[0..127] of char;  Hold: String;  Found: HWND; begin          //防止程序多次运行  Hold := Application.Title;  Application.Title := 'OnlyOne'     + IntToStr(HInstance); // 暂时修改窗口标题  StrPCopy(ZAppName, Hold); // 原窗口标题  Found := FindWindow(nil, ZAppName); // 查找窗口  Application.Title := Hold; // 恢复窗口标题  if Found<>0 then begin    // 若找到则激活已运行的程序并结束自身    ShowWindow(Found, SW_RESTORE);    Application.Terminate;  end; end; procedure TForm1.SpeedButton1Click(Sender: TObject); var   com1,com2:WideString;   a:string;   GroupList:TStringList; ComputerList:TStringList; i,j:integer; begin GroupList:=TStringList.Create; if not GetServerList(GroupList) then //取得网络内所有工作组 begin GroupList.Free; Exit; end; ComputerList:=TStringList.Create; for i:=0 to GroupList.Count-1 do//枚举没个工作组的计算机 begin ComputerList.Clear; if GetUsers(GroupList.Strings,ComputerList) then  for j:=0 to ComputerList.Count-1 do    ComboBox1.Items.Add(ComputerList.Strings[j]); end; if ComboBox1.Items.Count>0 then ComboBox1.ItemIndex:=0; GroupList.Free; ComputerList.Free; if  RadioButton2.Checked =true then begin    a:='command.com /c net send * '+combobox2.Text;   //net send 命令    WinExec(PChar(a), SW_SHOWNORMAL);    ShowMessage('所有信息已经发送完毕!') end else   com2:=combobox2.Text ;   com1:=combobox1.Text ;   NetMessageBufferSend(NIL,PWidechar(com1),Nil,PWideChar(com2),Length(String(com2)));   ShowMessage('发往' + combobox1.Text + '的信息已经发出了') end; end.

Carem · 2003-08-14

thanks !!

如何用api获取局域网同一工作组内所有机器名？(20分)

Carem

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

delphi_Dcs

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

D_Dcs

Unregistered / Unconfirmed

delphi_Dcs

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

Carem

Unregistered / Unconfirmed

Similar threads