u_vctalknow_about.pas

来自「Voice Communicator (VC) 一套处理音频压缩的的控件包」· PAS 代码 · 共 92 行

(*
	----------------------------------------------

	  u_vcTalkNow_about.pas
	  vcTalkNow demo application - about form source

	----------------------------------------------
	  This source code cannot be used without
	  proper license granted to you as a private
	  person or an entity by the Lake of Soft, Ltd

	  Visit http://lakeofsoft.com/ for more information.

	  Copyright (c) 2001, 2007 Lake of Soft, Ltd
		     All rights reserved
	----------------------------------------------

	  created by:
		Lake, 22 Mar 2002

	  modified by:
		Lake, Mar 2003
		
	----------------------------------------------
*)

{$I unaDef.inc}

unit
  u_vcTalkNow_about;

interface

uses
  Windows, unaTypes, Forms, Graphics, Controls, ExtCtrls, Classes, StdCtrls;

type
  Tc_form_about = class(TForm)
    c_panel_logo: TPanel;
    c_image_about: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Bevel1: TBevel;
    Label5: TLabel;
    c_staticText_url: TStaticText;
    //
    procedure formCreate(sender: tObject);
    procedure c_staticText_urlClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showAbout();
  end;

var
  c_form_about: Tc_form_about;


implementation


{$R *.dfm}

uses
  ShellApi;

{ Tc_form_about }

// --  --
procedure Tc_form_about.formCreate(sender: tObject);
begin
end;

// --  --
procedure Tc_form_about.showAbout();
begin
  showModal();
end;

// --  --
procedure Tc_form_about.c_staticText_urlClick(Sender: TObject);
begin
  shellExecute(0, 'open', 'http://lakeofsoft.com/vc/', nil, nil, SW_SHOWNORMAL);
end;

end.