// Stephen C. Ferguson
//

unit About;

interface

uses Windows, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, RxGrdCpt, Menus, RxMenus, Registry, ShellApi,
  Messages, jpeg;

type
  TAboutBox = class(TForm)
    HelpButton: TSpeedButton;
    CloseButton: TSpeedButton;
    Label1: TLabel;
    SteveLabel: TLabel;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Image1: TImage;
    procedure HelpButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CloseButtonClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    Captured : Boolean;
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

uses MainUnit;

{$R *.DFM}

procedure TAboutBox.HelpButtonClick(Sender: TObject);
begin
  MainForm.Help2Click(Self);
end;

procedure TAboutBox.CloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
begin
  Captured:=False;
end;

procedure TAboutBox.SpeedButton1Click(Sender: TObject);
var
  ex: String;
  p_: Integer;
  R:  TRegistry;
Begin
  R:=TRegistry.Create;
  try
    R.RootKey:=HKEY_CLASSES_ROOT;
    R.OpenKey('http\shell\open\command', False);
    ex:=R.ReadString('');      //
    p_:=Pos('%1',ex);
    If p_>0 Then ex:=Copy(ex,1,p_-1);
      WinExec(PChar(ex+' http://www.eclectasy.com/Iterations-et-Flarium24/'),
                SW_SHOWNORMAL);
  finally
    R.Free;
  end;
end;

end.