about.pas

来自「一个模拟Delphi的快速开发环境RAD」· PAS 代码 · 共 42 行

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    btnOK: TButton;
    Comments: TLabel;
    Copyright: TLabel;
    ProgramIcon: TImage;
    Label1: TLabel;
    ProductName: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    btnHomepage: TButton;
    procedure btnHomepageClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.DFM}
uses ShellAPI;

procedure TAboutBox.btnHomepageClick(Sender: TObject);
begin
  ShellExecute(self.Handle,nil, 'http://myhome.netsgo.com/wyb330',
               nil, nil, SW_SHOWNORMAL);
end;

end.