如何把网上邻居加入到combobox的列表中？

[sbxtzhl]

谢谢

[Drate]

得网上邻居中的所有计算机
//windows 2000
begin
winexec('cmd /c net view>c:\ttt.txt',sw_hide);
end;

//windows 9x
begin
winexec('command.com /c net view>c:\ttt.txt',sw_hide);
end;

然后到c:\ttt.txt看看。剩下的事情就是把c:\ttt.txt中的内容读取到listbox中了

[grail_]

var

Computer : Array[1..500] of String[25];

ComputerCount : Integer;





procedure FindAllComputers(Workgroup : String);

Var

EnumHandle : THandle;

WorkgroupRS : TNetResource;

Buf : Array[1..500] of TNetResource;

BufSize : Integer;

Entries : Integer;

Result : Integer;



begin

ComputerCount := 0;



Workgroup := Workgroup + #0;



FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);

With WorkgroupRS do begin

dwScope := 2;

dwType := 3;

dwDisplayType := 1;

dwUsage := 2;

lpRemoteName := @Workgroup[1];

end;



WNetOpenEnum( RESOURCE_GLOBALNET,

RESOURCETYPE_ANY,

0,

@WorkgroupRS,

EnumHandle );



Repeat

Entries := 1;

BufSize := SizeOf(Buf);



Result :=

WNetEnumResource( EnumHandle,

Entries,

@Buf,

BufSize );

If (Result = NO_ERROR) and (Entries = 1) then begin

Inc( ComputerCount );

Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName);

end;

Until (Entries <> 1) or (Result <> NO_ERROR);



WNetCloseEnum( EnumHandle );

end; { Find All Computers }

[307]

同意Drate(鸟窝里的虫)，我试过，再处理一下就可以
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec('cmd /c net view>c:\ttt.txt',sw_hide);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
combobox1.Items.LoadFromFile('c:\ttt.txt');
end;