老问题重提。。。

Question

这个我知道了，谢谢，待会儿我给你加分，我想取到所有的计算机的名字放到combobox里，
该怎么做。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
      richedit1.SelStart:=2;
      richedit1.SelLength:=3;
      richedit1.SelAttributes.Color:=clred;
end;

Answer 2

Function GetServerList( var List : tlistview ) : Boolean;
type
  TNetResourceArray = ^TNetResource;//网络类型的数组
Var
    NetResource : TNetResource;
    Buf : Pointer;
    Count,BufSize,Res : DWORD;
    lphEnum : THandle;
    p : TNetResourceArray;
    i,j : integer;
    NetworkTypeList : Tlist;
    listitem:tlistitem;
Begin
    Result := False;
    NetworkTypeList := Tlist.Create;
    List.Items.Clear;    //获取整个网络中的文件资源的句柄，lphEnum为返回名柄
    Res := WNetOpenEnum( RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,Nil,lphEnum);
    If Res <> NO_ERROR Then exit;//Raise Exception(Res);//执行失败    //获取整个网络中的网络类型信息
    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
        listitem:= list.Items.Add();
               listitem.Caption := StrPAS( P^.lpRemoteName );//取得一个工作组的名称
            Inc(P);
        End;      End;      Res := WNetCloseEnum(lphEnum);//关闭一次列举
      If Res <> NO_ERROR Then break;//执行失败    End;    Result := True;
    FreeMem(Buf);    NetworkTypeList.Destroy;End;
//列举出指定工作组GroupName中的计算机名称，返回值为TRUE表示执行成功，
//参数List中返回计算机名称
Function GetUsers( GroupName : string; var List : tlistview ) : Boolean;
type
  TNetResourceArray = ^TNetResource;//网络类型的数组
Var
    NetResource : TNetResource;
    Buf : Pointer;
    Count,BufSize,Res : DWord;
    Ind : Integer;
    lphEnum : THandle;
    Temp : TNetResourceArray;
    listitem:Tlistitem;
Begin
    Result := False;
    List.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 Ind := 0 to Count - 1 do//列举工作组的计算机名称
        Begin
        //获取工作组的计算机名称，+2表示删除"\\"，如\\wangfajun=>wangfajun
        listitem:=list.items.add();
        listitem.caption:=(Temp^.lpRemoteName + 2);
        Inc(Temp);
        End;
    End;    Res := WNetCloseEnum(lphEnum);//关闭一次列举
    If Res <> NO_ERROR Then exit;//执行失败    Result := True;
    FreeMem(Buf);
End;
我这是从别人的那里改变过来的