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

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

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
;

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

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

Категории

Статьи

Советы