about.pas

一个时钟,适合初学者学习使用,有什么意见联系我

{          电脑闹钟3.0－风之铃
          版权所有（C）         2003.3            <风之铃>
    这一程序是自由软件，你可以遵照自由软件基金会出版的GNU通用公共许可
证条款来修改和重新发布这一程序。或者用许可证的第二版，或者（根据你的选
择）用任何更新的版本。
    发布这一程序的目的是希望它有用，但没有任何担保。甚至没有适合特定目
的的隐含的担保。更详细的情况请参阅GNU通用公共许可证。
    你应该已经和程序一起收到一份GNU通用公共许可证的副本。如果还没有，
写信给：
    The Free Software Foundation, Inc.,  675  Mass Ave,  Cambridge,
    MA02139,  USA

    风之铃：tel：[phone] or 13610412046
}
unit About;

interface

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

type
  TAboutForm = class(TForm)
    AboutPanel: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Comments1: TLabel;
    Comments2: TLabel;
    OKButton: TButton;
    Author: TLabel;
    Copyright: TLabel;
    procedure EmailClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation
uses ShellAPI;
{$R *.dfm}

procedure TAboutForm.EmailClick(Sender: TObject);
begin
  ShellExecute(handle, 'open', Pchar('mailto:' + (Sender as TLabel).Caption), nil, nil, SW_SHOWNORMAL);
end;

end.