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, either version 3 of the License, or
   6     (at your option) any later version.
   7
   8     WineLauncher 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 WineLauncher.  If not, see <http://www.gnu.org/licenses/>.
  15 }
  16
  17 program WineLauncher;
  18
  19 {$mode objfpc}{$H+}
  20
  21 uses
  22   {$IFDEF UNIX}{$IFDEF UseCThreads}
  23   cthreads,
  24   {$ENDIF}{$ENDIF}
  25   Interfaces, // this includes the LCL widgetset
  26   SysUtils,
  27   Forms,
  28   {Units}
  29   UnitInitialization,
  30   UnitCommandLine,
  31   UnitDebugConfig,
  32   UnitMain,
  33   UnitMainBackend,
  34   UnitSettings,
  35   UnitProgramsList,
  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