dllaboutform.pas

DelphiWin32核心API参考光盘内容.是学习书籍中的源码,便于学习.

unit DLLAboutForm;

interface

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

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    OKButton: TButton;
    Panel2: TPanel;
    Comments: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  {the prototype for the exported function}
  function ShowAboutBox(ExampleName, Comments: ShortString): Boolean; export;

var
  AboutBox: TAboutBox;

implementation

{$R *.DFM}

function ShowAboutBox(ExampleName, Comments: ShortString): Boolean;
begin
  {initialize the function results}
  Result := FALSE;

  {create the about box form}
  AboutBox := TAboutBox.Create(Application);

  {initialize labels from the supplied strings}
  AboutBox.ProductName.Caption := ExampleName;
  AboutBox.Comments.Caption := Comments;

  {show a modal about box}
  AboutBox.ShowModal;

  {release the form}
  AboutBox.Release;

  {indicate that the function completed}
  Result := TRUE;
end;



end.