Functions/CommandLine/UnitCommandLine.pas

   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 unit UnitCommandLine;
  18
  19 {$mode objfpc}{$H+}
  20
  21 interface
  22
  23 uses
  24   Classes, SysUtils, Forms;
  25
  26 procedure ProcessCommandLineInput();
  27
  28
  29 implementation
  30 uses UnitInitialization;
  31
  32 procedure ProcessCommandLineInput();
  33 begin
  34      if Application.HasOption('h','help') then
  35         begin
  36              Writeln('Help your self.');
  37              Halt;
  38         end;
  39
  40      if Application.HasOption('v','version') then
  41         begin
  42              Writeln('WineLauncher: ' + WineLauncherVersion);
  43              Writeln(BuiltWithLazarusVersion);
  44              Writeln(BuiltWithFpcVersion);
  45              Halt;
  46         end;
  47
  48 end;
  49
  50 end.
  51