aboutdlg.pas

The law of the Ohm for pupils. The program with source codes. RX-library components are required

unit AboutDlg;

interface

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

type
  TAboutForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    OKBtn: TButton;
    CompanyNameStx: TStaticText;
    FileDescriptionStx: TStaticText;
    FileVersionStx: TStaticText;
    LegalCopyrightStx: TStaticText;
    OriginalFilenameStx: TStaticText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    Image3: TImage;
    Image4: TImage;
    Memo1: TMemo;
    Bevel1: TBevel;
    //
    procedure ExtractVerInfo;
    //
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;
  AboutFileName: string;

implementation

{$R *.DFM}

procedure TAboutForm.ExtractVerInfo;
var Size  : DWord;
    VSize : DWord;
    VData : Pointer;
    VVers : Pointer;
    Len   : DWord;

    function GetVerValue(Value : string): string;
    begin
      if VerQueryValue(VData,
         pChar(Format('\StringFileInfo\041004E4\%s', [Value])),
         VVers, Len) then
           if Len > 0 then Result := StrPAs(VVers);
    end; {- GetVerValue }
    
begin
  VSize := GetFileVersionInfoSize(Pchar(AboutFileName), Size);
  if VSize <> 0 then begin
     GetMem(VData, VSize);
     try
       if GetFileVersionInfo(Pchar(AboutFileName), 0, VSize, VData) then
          begin
//            CompanyNameStx.Caption      := GetVerValue('CompanyName');
//            FileDescriptionStx.Caption  := GetVerValue('FileDescription');
 //           FileVersionStx.Caption      := GetVerValue('FileVersion');
//            LegalCopyrightStx.Caption   := GetVerValue('LegalCopyright');
//            OriginalFilenameStx.Caption := GetVerValue('OriginalFilename');
          end;
     finally
       FreeMem(VData, VSize);
     end; // try...Finally
  end; // if Vsize
end; {- ExtractVerInfo }



{-------------------------------------------------------------------------------
}
procedure TAboutForm.FormCreate(Sender: TObject);
begin
  ExtractVerInfo;
end; 

end.