1 (* Copyright (C) Doom 2D: Forever Developers
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, either version 3 of the License, or
6 * (at your option) any later version.
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
16 {$INCLUDE a_modes.inc}
22 uses SysUtils
, CTypes
;
24 function SetEnvVar(const VarName
: AnsiString
; const VarVal
: AnsiString
): Boolean;
25 function GetUserName
: String;
37 function setenv(const VarStr
: PChar
; const VarVal
: PChar
; Repl
: cint
): cint
;
39 if (SetEnvironmentVariable(VarStr
, VarVal
)) then
47 function setenv(const VarStr
: PChar
; const VarVal
: PChar
; Repl
: cint
): cint
;
48 cdecl; external clib name
'setenv';
51 function SetEnvVar(const VarName
: AnsiString
; const VarVal
: AnsiString
): Boolean;
53 Result
:= (setenv(PChar(VarName
), PChar(VarVal
), 1) = 0);
56 (* Get system username already in cp1251 *)
57 function GetUserName
: AnsiString
;
60 {$IF DEFINED(WINDOWS)}
61 Result
:= utf2win(UTF8String(SysUtils
.GetEnvironmentVariable(WideString('USERNAME'))));
62 {$ELSEIF DEFINED(UNIX)}
63 Result
:= utf2win(SysUtils
.GetEnvironmentVariable('USER'));
67 (* invalidate username with non-cp1251 symbols *)
69 while i
<= High(Result
) do
71 if Result
[i
] = '?' then