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   { you can add units after this },UnitDebugConfig, UnitAbout, UnitMain,
  28 UnitSettings, UnitProgramsList, UnitMisc;
  29
  30
  31 begin
  32   {Stop the user from running this program as root.}
  33   if GetEnvironmentVariable('LOGNAME') = 'root' then
  34     begin
  35          WriteLn('You can not run WineLauncher as root.');
  36          WriteLn('See http://wiki.winehq.org/FAQ#head-96bebfa287b4288974de0df23351f278b0d41014');
  37          exit;
  38     end;
  39
  40   Application.Initialize;
  41   Application.CreateForm(TForm1, Form1);
  42   Application.CreateForm(TForm2, Form2);
  43   Application.CreateForm(TForm3, Form3);
  44   Application.CreateForm(TForm4, Form4);
  45   Application.Run;
  46 end.
  47