test1frmabout.pas

来自「ImageMagick library of image with Visua」· PAS 代码 · 共 63 行

{ Unit Test1frmAbout

  This is code for the About form of demoprogram "Test1".

  Please check this website for most recent updates:
  http://www.simdesign.nl/components/imagemagick.html

  Author:  Nils Haeck M.Sc. (www.simdesign.nl) (c) 2003 Simdesign
  Created: 25 March 2003
  Version: 1.00

  Please change version number and add a change log whenever updates are made
  to this file.

  ****************************************************************
  The contents of this file are subject to the Mozilla Public
  License Version 1.1 (the "License"); you may not use this file
  except in compliance with the License. You may obtain a copy of
  the License at:
  http://www.mozilla.org/MPL/

  Software distributed under the License is distributed on an
  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  implied. See the License for the specific language governing
  rights and limitations under the License.
}
unit Test1frmAbout;

interface

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

type
  TfrmAbout = class(TForm)
    Label1: TLabel;
    btnVisitHomepage: TButton;
    btnOK: TButton;
    procedure btnVisitHomepageClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

const
  cInfoWebAddress = 'http://www.simdesign.nl/components/imagemagick.html';

implementation

{$R *.DFM}

procedure TfrmAbout.btnVisitHomepageClick(Sender: TObject);
begin
  ShellExecute(0, 'Open', PChar(cInfoWebAddress), nil, nil, SW_SHOWDEFAULT);
end;

end.