u_vc_about.pas

来自「Voice Commnucation Components for Delphi」· PAS 代码 · 共 71 行

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

	  u_vc_main.pas
	  vcVoiceChat 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) 2002-2005 Lake of Soft, Ltd
		     All rights reserved
	----------------------------------------------

	  created by:
		Lake, 26 Jan 2003

	  modified by:
		Lake, Jan 2003
		Lake, Oct 2005

	----------------------------------------------
*)

{$I unaDef.inc}

unit u_vc_about;

interface

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

type
  Tc_form_about = class(TForm)
    c_panel_main: TPanel;
    c_label_productName: TLabel;
    c_label_version: TLabel;
    c_label_copyright: TLabel;
    c_label_comments: TLabel;
    c_button_OK: TButton;
    procedure c_label_commentsClick(sender: tObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  c_form_about: Tc_form_about;

implementation


{$R *.dfm}

uses
  shellAPI;

// --  --
procedure Tc_form_about.c_label_commentsClick(sender: tObject);
begin
  shellExecute(0, 'open', 'http://www.lakeofsoft.com/vc', nil, nil, SW_SHOWNORMAL);
end;

end.