自定義函數//獲取登錄計算機用戶的名稱，獲取計算機名稱

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.