about.pas

星光药店进销存管理系统源代码

unit about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Shellapi, Buttons, jpeg;

type
  TAbout_Form = class(TForm)
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Label9: TLabel;
    BitBtn1: TBitBtn;
    Label10: TLabel;
    Label1: TLabel;
    procedure Label5Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetBuildInfo(var V1, V2, V3, V4: Word);
    function kfVersionInfo: String;
    { Public declarations }
  end;

var
  About_Form: TAbout_Form;

implementation



{$R *.dfm}






procedure TAbout_Form.Label5Click(Sender: TObject);
begin
Shellexecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TAbout_Form.Label7Click(Sender: TObject);
begin
Shellexecute(handle,nil,pchar('Http://jnck.126.com'),nil,nil,sw_shownormal);
end;

procedure TAbout_Form.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label7.Font.Style:=[fsbold];
Label7.Font.Color :=clmaroon;
Label5.Font.Style:=[fsbold];
Label5.Font.Color :=clmaroon;
end;

procedure TAbout_Form.Label7MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Label7.Font.Style:=[fsbold,fsunderline];
Label7.Font.Color:=clGradientActiveCaption;
end;

procedure TAbout_Form.Label5MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Label5.Font.Style:=[fsbold,fsunderline];
Label5.Font.Color:=clGradientActiveCaption;
end;

procedure TAbout_Form.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

// -------------------------------------------------------------------------//

procedure TAbout_Form.GetBuildInfo(var V1,V2,V3,V4: Word);
  var
    VerInfoSize, VervalueSize, Dummy : DWORD;
    VerInfo : Pointer;
    Vervalue : PVSFixedFileInfo;
begin
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), Dummy);
  GetMem(VerInfo, VerInfoSize);
  GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo);
  VerQueryvalue(VerInfo, '\', Pointer(Vervalue), VervalueSize);
  With Vervalue^ do
    begin
      V1 := dwFileVersionMS shr 16;
      V2 := dwFileVersionMS and $FFFF;
      V3 := dwFileVersionLS shr 16;
      V4 := dwFileVersionLS and $FFFF;
    end;
  FreeMem(VerInfo, VerInfoSize);
end;

// -------------------------------------------------------------------------//

function TAbout_Form.kfVersionInfo: String;
  var
    V1,  // Major Version
    V2,  // Minor Version
    V3,  // Release
    V4: Word;  // Build Number
begin
//  GetBuildInfo(V1,V2,V3,V4);
  Result := IntToStr(V1) + '.'
            + IntToStr(V2) + '.'
            + IntToStr(V3) + '.'
            + IntToStr(V4);
end;

// -------------------------------------------------------------------------//


procedure TAbout_Form.FormShow(Sender: TObject);
begin
  Label1.Caption := '('+'Build ' + kfVersionInfo +')';
end;

end.