关于获得XP的当前用户名，紧急求教！

Question

我用API函数WNetGetUser在98下面可以,在XP下面却出现More_DATA_ERROR(Code 234),请大虾们指教！

Answer 1

參考﹕
procedure TForm1.Button5Click(Sender: TObject);
Var 
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE; 
Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion',False); 
Edit1.Text:='當前路徑：'+Reg.CurrentPath;
Edit2.Text:='產品系列碼：'+Reg.ReadString('ProductId');
Edit3.Text:='產品名：'+Reg.ReadString('ProductName');
Edit4.Text:='註冊公司名：'+Reg.ReadString('RegisteredOrganization');
Edit5.Text:='用戶名：'+Reg.ReadString('RegisteredOwner');
Edit6.Text:='文件類型：'+Reg.ReadString('SoftwareType');
Reg.CloseKey; 
Reg.Free; 
end;

Answer 2

function TAPIMisc.myGetUserName : String;
var
   pcUser   : PChar;
   dwUSize : DWORD;
begin
   dwUSize := 21; // user name can be up to 20 characters
   GetMem( pcUser, dwUSize ); // allocate memory for the string
   try
      if Windows.GetUserName( pcUser, dwUSize ) then
         Result := pcUser
   finally
      FreeMem( pcUser ); // now free the memory allocated for the string
   end;
end;

Answer 3

多谢几们的指教。我用getusername可以实现获得用户名，但只是用户名的名称!
大家知道，在winxp下用名分为名称，全名，描述三部份组成。所以，我得到只是用户名的名称这一部份。而实际上是想要名称和全名两部份。比如XP登陆时显示的就是用户名的全名。当然这些信息可以从注册表里得到。但是除些之外能不能用API函数直接得到，望大家不吝赐教。