1 { This file is part of WineLauncher.
3 WineLauncher 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, version 3 of the License.
7 WineLauncher is distributed in the hope that it will be useful,
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 GNU General Public License for more details.
12 You should have received a copy of the GNU General Public License
13 along with WineLauncher. If not, see <http://www.gnu.org/licenses/>.
21 {$IFDEF UNIX}{$IFDEF UseCThreads}
24 Interfaces, // this includes the LCL widgetset
40 {Stop the user from running this program as root.}
41 if GetEnvironmentVariable('LOGNAME') = 'root' then
43 WriteLn('You can not run WineLauncher as root.');
44 WriteLn('See http://wiki.winehq.org/FAQ#head-96bebfa287b4288974de0df23351f278b0d41014');
48 ProcessCommandLineInput();
51 if StartUp() = false then
53 WriteLn(ShowStoperErrorMsg);
57 Application.Initialize;
58 Application.CreateForm(TForm1, Form1);
59 Application.CreateForm(TForm2, Form2);
60 Application.CreateForm(TForm3, Form3);
61 Application.CreateForm(TForm4, Form4);