1 (* Copyright (C) Doom 2D: Forever Developers
2 *
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.
7 *
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.
12 *
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/>.
15 *)
16 {$INCLUDE a_modes.inc}
17 {.$MODE OBJFPC}
20 interface
27 implementation
29 uses
30 {$IFDEF WINDOWS}
31 Windows,
32 {$ENDIF}
33 utils;
36 {$IFDEF WINDOWS}
38 begin
41 else
44 {$ELSE}
45 {$LINKLIB c}
49 {$ENDIF}
52 begin
56 (* Get system username already in cp1251 *)
59 begin
60 {$IF DEFINED(WINDOWS)}
62 {$ELSEIF DEFINED(UNIX)}
64 {$ELSE}
66 {$ENDIF}
67 (* invalidate username with non-cp1251 symbols *)
70 begin
74 end