unit about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, XPMan, jpeg;

type
  TaboutFrm = class(TForm)
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Image1: TImage;
    Label7: TLabel;
    Label8: TLabel;
    verLbl: TLabel;
    procedure Label5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aboutFrm: TaboutFrm;

implementation

uses main;

{$R *.dfm}

procedure TaboutFrm.FormShow(Sender: TObject);
begin
  verLbl.Caption := mainFrm.GetVersion.Ver;
end;

procedure TaboutFrm.Label5Click(Sender: TObject);
begin
  WinExec(pchar('explorer.exe "'+(Sender as TLabel).Caption+'"'),1);
end;

end.