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   UnitAbout,
  32   UnitMain,
  33   UnitMainBackend,
  34   UnitSettings,
  35   UnitProgramsList,
  36   UnitMisc;
  37
  38
  39 begin
  40   {Stop the user from running this program as root.}
  41   if GetEnvironmentVariable('LOGNAME') = 'root' then
  42     begin
  43          WriteLn('You can not run WineLauncher as root.');
  44          WriteLn('See http://wiki.winehq.org/FAQ#head-96bebfa287b4288974de0df23351f278b0d41014');
  45          exit;
  46     end;
  47
  48   ProcessCommandLineInput();
  49
  50   {PreGUI Initialize.}
  51   if StartUp() = false then
  52      begin
  53           WriteLn(ShowStoperErrorMsg);
  54           exit;
  55      end;
  56
  57   Application.Initialize;
  58   Application.CreateForm(TForm1, Form1);
  59   Application.CreateForm(TForm2, Form2);
  60   Application.CreateForm(TForm3, Form3);
  61   Application.CreateForm(TForm4, Form4);
  62   Application.Run;
  63 end.
  64