u_about.pas

语音坐席,支持录音及语音回访,和自动催款

unit U_About;

interface

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

type
  TAboutBox = class(TForm)
    Version: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    Label8: TLabel;
    ScrollBox1: TScrollBox;
    ProgramIcon: TImage;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure Label5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation
{$R *.DFM}

//得到文件的版本号
function Soft_GetVersion(FileName:String):String;
var
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  szName: array[0..255] of Char;
  Value: Pointer;
  Len: UINT;
  TransString:string;
begin
  InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
  if InfoSize<>0 then
  begin
    GetMem(VerBuf, InfoSize);
    try
      if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
      begin
        Value :=nil;
        VerQueryValue(VerBuf, '\VarFileInfo\Translation', Value, Len);
        if Value<>nil then
           TransString := IntToHex(MakeLong(HiWord(Longint(Value^)), LoWord(Longint(Value^))), 8);
        Result := '';
        StrPCopy(szName, '\StringFileInfo\'+Transstring+'\FileVersion');
        //^^^^^^^此处换成ProductVersion得到的是"产品版本"
        if VerQueryValue(VerBuf, szName, Value, Len) then
           Result := ' '+StrPas(PChar(Value))+' 版';
      end;
    finally
      FreeMem(VerBuf);
    end;
  end;
end;

procedure TAboutBox.Label5Click(Sender: TObject);
begin
     ShellExecute(Handle,PChar('open'),PChar(TLabel(Sender).Hint),Nil,Nil,1);
end;

procedure TAboutBox.FormShow(Sender: TObject);
begin
     Label11.Caption:='('+Soft_GetVersion('CTI.EXE')+')';
end;

end.