unfrmver.pas

本产品是开发LISTVIEW相关功能的可定制产品

{**********************************************************************
                 通用版本显示窗体单元
代码名称:   通用版本显示窗体单元
编译工具：  Delphi 6.0
作者：      邓普德
版权：      成都四方信息技术有限公司
定义时间：  2006-08-02
修改时间：  2006-08-06
**********************************************************************}

unit unfrmVer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, unCDefine, jpeg,shellapi;

type
  TfrmVersion = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lVer: TLabel;
    Bevel2: TBevel;
    Label4: TLabel;
    lMem: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Label1DblClick(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label6MouseEnter(Sender: TObject);
    procedure Label6MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowVer(fileName: string);
  end;

var
  frmVersion: TfrmVersion;

implementation

{$R *.DFM}

{ TfrmVersion }

procedure TfrmVersion.ShowVer(fileName: string);
var
  Buf: TMemoryStatus;
  I: Integer;
begin
  lVer.Caption := '（内部版本：' + GetVersion(fileName) + '）';
  GlobalMemoryStatus(buf);
  lMem.Caption := FloatToStr(Buf.dwAvailPhys/1024) + ' KB / ' + FloatToStr(Buf.dwTotalPhys/1024) +  ' KB';
end;

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

procedure TfrmVersion.Label1DblClick(Sender: TObject);
begin
  Label1.Hint := 'Written By:' + #13 +  '            you xiaojun' + #13 + '            [e-mail]';
  Label1.ShowHint := not Label1.ShowHint;
end;

procedure TfrmVersion.Label6Click(Sender: TObject);
var
  Handle : THandle;
begin
  ShellExecute(Handle,'Open','http://www.cdsf.com',nil,nil,SW_NORMAL);
  Close;
end;

procedure TfrmVersion.Label6MouseEnter(Sender: TObject);
begin
  Label6.Cursor := crHandPoint;
end;

procedure TfrmVersion.Label6MouseLeave(Sender: TObject);
begin
  Label6.Cursor := crDefault;
end;
         
end.