diff --git a/src/shared/envvars.pas b/src/shared/envvars.pas
index 941b8e0b78d548ef5b90cc1f71341e6c001f4853..3774eab2fe277edbd168c160de436c954d3c5007 100644 (file)
--- a/src/shared/envvars.pas
+++ b/src/shared/envvars.pas
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.