sandinfo.pas

模拟2维沙堆效果

unit SandInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TAboutBox = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Version: TLabel;
    Author: TLabel;
    Freeware: TLabel;
    Product: TLabel;
    HtmlLink: TLabel;
    procedure HtmlLinkClick(Sender: TObject);
  end;

var
  AboutBox: TAboutBox;

implementation

{$R *.DFM}

uses
  ShellAPI;

procedure TAboutBox.HtmlLinkClick(Sender: TObject);
begin
  ShellExecute(Application.MainForm.Handle, nil,
               PChar(HtmlLink.Caption), nil, '.', SW_RESTORE);
{ Alternatively you could use:
  ExecuteFile('http://'+HtmlLink.Caption, '.', 'c:\', SW_RESTORE);
  Remember to get the FMXUtils unit from the Delphi Demo folder. }
end;

end.