about.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 66 行

unit About;

interface

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

type
  TAboutFrm = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutFrm: TAboutFrm;

implementation

{$R *.dfm}

procedure TAboutFrm.FormCreate(Sender: TObject);
var
  Handle:DWord;
  Size:Integer;
  RezBuffer:String;
  SBSize:UInt;
  FileName:String;
  VerInfo:String;
  FixedFileInfoBuf:PVSFixedFileInfo;
  Ms,Ls:LongInt;
begin
  ProductName.Caption:=Application.Title;                   //设置该管理系统工程名称
  FileName:=Application.ExeName;                            //获取当前文件名
  Size:=GetFileVersionInfoSize(PChar(FileName), Handle);    //获取版本信息大小
  if Size>0 then
  begin
    SetLength(RezBuffer, Size);            //设置字符串大小
    GetFileVersionInfo(PChar(FileName), Handle, Size, PChar(RezBuffer));  //获取版本信息
    VerQueryValue(PChar(RezBuffer), '\', Pointer(FixedFileInfoBuf), SBSize);  //提取版本号
    Ms:=FixedFileInfoBuf^.dwFileVersionMS;
    Ls:=FixedFileInfoBuf^.dwFileVersionLS;
    VerInfo:=Format('%d.%d.%d.%d', [HIWORD(Ms), LOWORD(Ms), HIWORD(Ls), LOWORD(Ls)]);
    Version.Caption:='Version '+VerInfo;
  end;
end;

procedure TAboutFrm.Timer1Timer(Sender: TObject);
begin
  close;
end;

end.