閱讀Windows登錄用戶名與Ada 95

Question

Ada 95中有一個函數返回一個字符串，其中包含Windows應用程序中登錄的用戶名？ 謝謝。

Answer 1

使用從@KeithThompson評論，加上@SimonWright USERNAME建議的想法，一個辦法做到這一點是使用代碼：

function GetUsername return String is 
    function GetEnv (Variable : String) return Interfaces.C.Strings.chars_ptr; 
    pragma Import (C, GetEnv, "getenv"); 

    Command : constant String := "USERNAME"; 
    Answer_Ptr : constant Interfaces.C.Strings.chars_ptr := GetEnv (Command); 
    Answer : constant String := Interfaces.C.Strings.Value (Answer_Ptr); 
begin 
    return Answer; 
end GetUsername; 

不是純粹的Ada 95，但它非常適合（我沒有使用gnat05開關） 。

Answer 2

一般的答案是使用Ada環境支持的任何機制來調用本機Win32 API函數，並調用GetUserName函數。

Answer 3

GNAT專用包Ada.Command_Line.Environment可能是一個可用的替代方案。

Answer 4

如果你被允許使用2005年的Ada，你可以使用包Ada.Environment_Variables得到的USERNAME值（我認爲這是爲Windows正確的環境變量？這是USER達爾文...）