mainform.pas

Delphi7高级应用开发随书源码

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,VersionInfo;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestory(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    VerInfoRes: TVerInfoRes;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure AddListViewItem(const aCaption, aValue: String; aData: Pointer; aLV: TListView);
// This method is used to add a TListItem to the TListView, aLV
var
  NewItem: TListItem;
begin
  NewItem := aLV.Items.Add;
  NewItem.Caption := aCaption;
  NewItem.Data := aData;
  NewItem.SubItems.Add(aValue);
end;

procedure TForm1.btnCloseClick(Sender: TObject);
begin
    Form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    VerInfoRes := TVerInfoRes.Create(Application.ExeName);
end;

procedure TForm1.FormDestory(Sender: TObject);
begin
    VerInfoRes.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  VerString: String;
  i: integer;
  sFFlags: String;

begin
  for i := ord(viCompanyName) to ord(viComments) do begin
    VerString := VerInfoRes.GetPreDefKeyString(TVerInfoType(i));
    if VerString <> '' then
      AddListViewItem(VerNameArray[TVerInfoType(i)], VerString, nil, ListView1);
  end;
  VerString := VerInfoRes.GetUserDefKeyString('Author');
  if VerString <> EmptyStr then
      AddListViewItem('Author', VerString, nil, ListView1);


  AddListViewItem('File Version', VerInfoRes.FileVersion, nil, ListView1);
  AddListViewItem('Product Version', VerInfoRes.ProductVersion, nil, ListView1);
  for i := 0 to VerInfoRes.FileFlags.Count - 1 do begin
    if i <> 0 then
      sFFlags := SFFlags+', ';
    sFFlags := SFFlags+VerInfoRes.FileFlags[i];
  end;
  AddListViewItem('File Flags',SFFlags, nil, ListView1);
  AddListViewItem('Operating System', VerINfoRes.FileOS, nil, ListView1);
end;

end.