unit uMain;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, RxVersInfo, Forms, Controls, Graphics, Dialogs,
  ComCtrls, ExtCtrls, EditBtn, StdCtrls;

type

  { TfrmMain }

  TfrmMain = class(TForm)
    btnGELaunch: TButton;
    DirectoryEdit1: TDirectoryEdit;
    FileNameEdit1: TFileNameEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    pnlGELaunch: TPanel;
    pnlGEOptions: TPanel;
    pnlCmdLine: TPanel;
    pct1: TPageControl;
    StatusBar1: TStatusBar;
    tshSE: TTabSheet;
    tshGE: TTabSheet;
    VerInfo1: TRxVersionInfo;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.lfm}

{ TfrmMain }

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  // 20121019 ALE - See GetVersionEx for figuring out Windows version and name
  //  then write a generic function.  Previously used functions were not open
  //  sourceable.
  Caption := Caption + VerInfo1.FileVersion; // + ' on ' + VerInfo1.OSName;


end;

end.