自定义函数//获取登录计算机用户的名称，获取计算机名称

function   GetlocalcomputerName: string ; /**/ ////获取计算机名称
  var
        lpName:pchar;   
        lpSize:DWord;   
  begin   
  lpSize: = 255 ;   
        getmem(lpName, 255 );   
        GetComputerName(lpName,lpSize);   
        Result: = trim(lpName);   
  end;
Function  GetUserFromWindows:  string ; // 获取登录计算机用户的名称
Var   UserName :  string ;   UserNameLen : Dword;
Begin   UserNameLen : =   255 ;   SetLength(userName, UserNameLen) ;
 If GetUserName(PChar(UserName), UserNameLen) Then
     Result : =  Copy(UserName, 1 ,UserNameLen  -   1 )
     Else
     Result : =   ' Unknown ' ;
 End;

end.