获取windows当前用户名函数;

function GetCurrentUserName : string;                           //获取windows当前用户名函数;
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;