u_about.pas

来自「以多个信息系统为例」· PAS 代码 · 共 72 行

unit u_about;

interface

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

type
  TF_about = 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
  F_about: TF_about;

implementation

{$R *.DFM}

procedure TF_about.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;
  Timer1.Enabled:=True;//启动计时
end;

procedure TF_about.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=False;//停止计时
end;

end.