unit AboutFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Shellapi ;
//
//  WIZTTSLib_TLB, ACTIVEVOICEPROJECTLib_TLB, HTTSLib_TLB;
//

type
  TForm2 = class(TForm)
    Label66: TLabel;
    Label67: TLabel;
    Label71: TLabel;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    URLLabel2: TLabel;
    URLLabel1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Label1Click(Sender: TObject);
    procedure Label66Click(Sender: TObject);
    procedure URLLabel2Click(Sender: TObject);
    procedure URLLabel1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses FreeForm;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Close;
end;

procedure TForm2.FormPaint(Sender: TObject);
begin
// делаем обводку формы
  WITH Canvas DO
    BEGIN
      Brush.Style := bsClear;
      Pen.Width := 3;
      Pen.Color := clMaroon;
      Polyline([Point(1, 1), Point(Width-2, 1), Point(Width-2, Height-2), Point(1, Height-2), Point(1, 1)]);
    END;
end;

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=27) then Close;
end;

procedure TForm2.Label1Click(Sender: TObject);
begin
//ShellExecute(Self.WindowHandle,'open',PChar('http://native-speech.by.ru','','',SW_Show);
ShellExecute(0, Nil, 'http://native-speech.by.ru' , Nil, Nil, SW_NORMAL);
      end;

procedure TForm2.Label66Click(Sender: TObject);
begin
ShellExecute(0, Nil, 'http://dks.pochta.ru' , Nil, Nil, SW_NORMAL);
end;

procedure TForm2.URLLabel2Click(Sender: TObject);
var TempString : array[0..79] of char;
begin
  StrPCopy(TempString,URLLabel2.Caption);
//  OpenObject(TempString);
  ShellExecute(0, Nil, TempString, Nil, Nil, SW_NORMAL);
end;
procedure TForm2.URLLabel1Click(Sender: TObject);
var TempString : array[0..79] of char;
begin
  StrPCopy(TempString,URLLabel1.Caption);
//  OpenObject(TempString);
  ShellExecute(0, Nil, TempString, Nil, Nil, SW_NORMAL);
end;

end.