API 获取当前登陆用户的名字和机器名

得到用户名：  
      var  
      Username   :   pChar;  
      nSize   :   Cardinal;  
  begin  
      Username:=StrAlloc(30);  
      nSize:=30;  
      GetUserName(Username,nSize);  
      ShowMessage(Username);  
      StrDispose(Username);  
  得到机器名：  
  function   GetComputerName:   AnsiString;  
      var   lpBuffer:   array[0..MAX_PATH]   of   char;  
      dwSize:   DWORD;  
  begin  
      dwSize:=   MAX_PATH;  
      if   not   Windows.GetComputerName(lpBuffer,   dwSize)   then  
      raise  
      Exception.Create(SysErrorMessage(GetLastError()));  
      Result:=   StrPas(lpBuffer);  
  end;

转载于:https://www.cnblogs.com/yxbsmx/archive/2008/09/27/1301034.html