可以用 WNetGetUser() 這個函數來得到Windows用戶名稱; 
函數原型：
DWORD WNetGetUser(LPCTSTR lpName, LPTSTR lpUserName, LPDWORD lpnLength);
參數：
lpName
指定已連接資源的遠端名稱或本地名稱
lpUserName
用於存放用戶名的一個字串緩衝區
lpnLength
lpUserName緩衝區的長度。如果緩衝區不夠大，則自動設為需要的緩衝區長度
返回值：
如果函數成功，返回值是NO_ERROR，否則返回一個錯誤代碼，其含義如下：
ERROR_NOT_CONNECTED lpName參數指定的不是一個連接資源名稱
ERROR_MORE_DATA 多個可用的併發調用
ERROR_NO_NETWORK 沒有網路
ERROR_EXTENDED_ERROR 網路細節錯誤
ERROR_NO_NET_OR_BAD_PATH 沒有一個連接名稱
實例：
// 取得用戶名稱
function GetUserName: AnsiString; 
  var
    lpName: PAnsiChar;
    lpUserName: PAnsiChar;
    lpnLength: DWORD;
  begin
    Result := '';
    lpnLength := 0;
    WNetGetUser(nil, nil, lpnLength); // 取得字串所需的長度
    if lpnLength > 0 then
      begin
        GetMem(lpUserName, lpnLength);
        if WNetGetUser(lpName, lpUserName, lpnLength) = NO_ERROR then
          Result := lpUserName;
          FreeMem(lpUserName, lpnLength);
        end;
  end; { GetUserName }