域名:
function GetNTDomainName: string;
var
  hReg: TRegistry;
begin
   hReg := TRegistry.Create;
   hReg.RootKey := HKEY_LOCAL_MACHINE;
   hReg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion 
                \Winlogon', false );
   Result := hReg.ReadString( 'DefaultDomainName' );
   hReg.CloseKey;
   hReg.Destroy; 
end;

解决方案 »

  1.   

    工作组好象是:
    WNetOpenEnum( RESOURCE_GLOBALNET,
                  RESOURCETYPE_ANY,
                  0,
                  @WorkgroupRS,
                  EnumHandle );
    //EnumHandle                : THandle;
    //WorkgroupRS               : TNetResource;
        
      

  2.   

    在WIN98下好像不灵。不过还是感谢你的参与。
      

  3.   

    在WIN98下好像不灵。不过还是感谢你的参与。