送50分，怎么在delphi编程中得到本机工作组名称

调用api函数。
好像是WnetopenEnum，Wnetenumresource可以获得这方面的信息！

function GetNetWorkgroup : string;
var
  Reg : TRegistry;
begin
  Reg := TRegistry.create;
  Result := '(n/a)';
  with Reg do
  try
     RootKey := HKEY_LOCAL_MACHINE;
     if OpenKey('System\CurrentControlSet\Services\VxD\VNETSUP',
        false) then
        Result := ReadString('Workgroup');
  finally
     CloseKey;
     free;
  end;
end;

to tangliang813(棒棒唐) ：
我看了我的注册表好象没有workgroup这个键值，只有HostName，没有普遍性。

我在win2000下测试失败阿
没有这个键值的说！！！

给你一个源程序:
unit connectdata;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,inifiles, ExtCtrls;type
    TNetResourceArray = ^TNetResource;//网络类型的数组type
  TForm49 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    BitBtn3: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form49: TForm49;
  Function GetServerList( var List : TStringList ) : Boolean;implementationuses main, datamodule;{$R *.dfm}//列举出整个网络中的工作组名称，返回值为TRUE表示执行成功，
//参数List中返回服务器（工作组）的名称
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;
    //获取整个网络中的文件资源的句柄，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
                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;
procedure TForm49.ComboBox1DropDown(Sender: TObject);
var ls: TStringList;
begin
    ls:= TStringList.Create();
    GetServerList(ls);
    combobox1.Items:=ls;
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
        //获取工作组的计算机名称，+2表示删除"\\"，如\\wangfajun=>wangfajun
            List.Add(Temp^.lpRemoteName + 2);
            Inc(Temp);
        End;
    End;
    Res:= WNetCloseEnum(lphEnum);//关闭一次列举
    If Res <> NO_ERROR Then exit;//执行失败
    Result := True;
    FreeMem(Buf);
End;
procedure TForm49.ComboBox2DropDown(Sender: TObject);
var ls:tstringlist;
begin
//   if listbox1.ItemIndex>0 then
   // begin
        ls:=tstringlist.Create;
        GetUsers(combobox1.Items.Strings[0],ls);
        combobox2.Items:=ls;
    //end;
end;procedure TForm49.BitBtn1Click(Sender: TObject);
var
  MyIniFile: TIniFile;
  filename:string;
  begin
  filename:=ExtractFilePath(paramstr(0))+'server.ini';
  MyIniFile := TIniFile.Create(filename);
//  combobox2.Clear;
//  MyIniFile.ReadSectionValues('host', combobox2.Lines);
  if combobox2.text<>'' then
    MyIniFile.WriteString('host', 'Data Source', combobox2.text);
//    myinifile.WriteString('host','username','suntang');
//    myinifile.WriteString('host','password','suntang');
  MyIniFile.Free;
end;procedure TForm49.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if combobox2.text='' then
   begin
   if application.MessageBox('不选择服务器无法使用本软件,确定要退出?','询问',mb_yesno)=6 then
      begin
      close;
      form1.close;
      end
   else
      abort();
   end;
end;procedure TForm49.BitBtn3Click(Sender: TObject);
var
  xxb1,xxb2 : string;
begin
xxb1:=ExtractFilePath(paramstr(0))+'xxb_data.mdf';
xxb2:=ExtractFilePath(paramstr(0))+'xxb_log.ldf';
with datamodule1.adoquery14 do
begin
Close;
sql.clear;
SQL.Add('exec sp_attach_db @dbname= "suntang",');
SQL.Add('@filename1='''+xxb1+''',');
SQL.Add('@filename2='''+xxb2+'''');
ExecSQL ;
showmessage('程序所需数据库已安装完毕!');
bitbtn3.Enabled:=false;
end;
end;end.

这个我是在delphi6+win2000中通过的

调试易

送50分，怎么在delphi编程中得到本机工作组名称

解决方案 »