WineLauncher.lpr

   1 {   This file is part of WineLauncher.
   2
   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.
   6
   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.
  11
  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/>.
  14 }
  15
  16 program WineLauncher;
  17
  18 {$mode objfpc}{$H+}
  19
  20 uses
  21   {$IFDEF UNIX}{$IFDEF UseCThreads}
  22   cthreads,
  23   {$ENDIF}{$ENDIF}
  24   Interfaces, // this includes the LCL widgetset
  25   SysUtils,
  26   Forms,
  27   {Units}
  28   UnitInitialization,
  29   UnitCommandLine,
  30   UnitDebugConfig,
  31   UnitMain,
  32   UnitMainBackend,
  33   UnitSettings,
  34   UnitProgramsList,
  35   UnitMisc,
  36   UnitCreatePrefix,
  37   UnitAbout;
  38
  39
  40 begin
  41   {Stop the user from running this program as root.}
  42   if GetEnvironmentVariable('LOGNAME') = 'root' then
  43     begin
  44          WriteLn('You can not run WineLauncher as root.');
  45          WriteLn('See http://wiki.winehq.org/FAQ#head-96bebfa287b4288974de0df23351f278b0d41014');
  46          exit;
  47     end;
  48
  49   ProcessCommandLineInput();
  50
  51   {PreGUI Initialize.}
  52   if StartUp() = false then
  53      begin
  54           WriteLn(ShowStoperErrorMsg);
  55           exit;
  56      end;
  57
  58   Application.Initialize;
  59   Application.CreateForm(TForm1, Form1);
  60   Application.CreateForm(TForm2, Form2);
  61   Application.CreateForm(TForm4, Form4);
  62   Application.Run;
  63 end.
  64