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   UnitMain,
  32   UnitMainBackend,
  33   UnitSettings,
  34   UnitProgramsList,
  35   UnitCreatePrefix,
  36   UnitAbout;
  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  if Application.Terminated then exit;
  50 InitializationCode;
  51  if Application.Terminated then exit;
  52
  53   Application.Initialize;
  54   Application.CreateForm(TForm1, Form1);
  55   Application.CreateForm(TForm4, Form4);
  56   Application.Run;
  57 end.
  58