diff --git a/src/shared/envvars.pas b/src/shared/envvars.pas
index a7d3293c7accd40a2bd71ea2999f356a46d331b5..3774eab2fe277edbd168c160de436c954d3c5007 100644 (file)
--- a/src/shared/envvars.pas
+++ b/src/shared/envvars.pas
-(* Copyright (C) DooM 2D:Forever Developers
+(* Copyright (C) Doom 2D: Forever Developers
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
interface
-uses SysUtils, CTypes;
+ uses SysUtils, CTypes;
-function SetEnvVar(const VarName: AnsiString; const VarVal: AnsiString): Boolean;
+ function SetEnvVar(const VarName: AnsiString; const VarVal: AnsiString): Boolean;
+ function GetUserName: String;
implementation
Result := (setenv(PChar(VarName), PChar(VarVal), 1) = 0);
end;
+ function GetUserName: String;
+ begin
+ {$IF DEFINED(WINDOWS)}
+ Result := SysUtils.GetEnvironmentVariable('USERNAME')
+ {$ELSEIF DEFINED(UNIX)}
+ Result := SysUtils.GetEnvironmentVariable('USER')
+ {$ELSE}
+ Result := ''
+ {$ENDIF}
+ end;
+
end.