Question

Is there a function in Ada 95 which returns me a String containing the logged username in an Windows application?
Thanks.

Answer 1

Using the idea from @KeithThompson comment, plus @SimonWright USERNAME suggestion, one way to do it is using the code:

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;

Not pure Ada 95, but it fits well (and I don’t have to use gnat05 switch).