Прочитать версию файла

Советы » Файлы » Прочитать версию файла

function

GetVersion: string

; var

VerInfoSize: DWORD; VerInfo: Pointer; VerValueSize: DWORD; VerValue: PVSFixedFileInfo; Dummy: DWORD; 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

Result := IntToStr(dwFileVersionMS shr

16); Result := Result + '.' + IntToStr(dwFileVersionMS and

$FFFF); Result := Result + '.' + IntToStr(dwFileVersionLS shr

16); Result := Result + '.' + IntToStr(dwFileVersionLS and

$FFFF); end

; FreeMem(VerInfo, VerInfoSize); end

; procedure

Form1.Button1Click(Sender: TObject); begin

label1.Caption := GetVersion; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com