如何获得98计算机的登录用户名并存入一个变量中？（100分）

Question

我在写程序时需要获取98的登录用户名并存入一个变量中，请问各位大侠如何处理？

Answer 1

function GetCurrentUserName : string; 
const 
  cnMaxUserNameLen = 254; 
var 
  sUserName : string; dwUserNameLen : DWord; 
begin 
  dwUserNameLen := cnMaxUserNameLen-1; 
  SetLength( sUserName, cnMaxUserNameLen ); 
  GetUserName( PChar( sUserName ), dwUserNameLen ); SetLength( sUserName,   dwUserNameLen ); 
  Result := sUserName; 
end; procedure Tform1.buttonclick(sender:objects);
var 
 s:string;
begin
 s:=GetCurrentUserName;
end;