Code:

procedure GetFileVersion(FileName: string; var Major1, Major2,

   Minor1, Minor2: Integer);

var

   Info: Pointer;

   InfoSize: DWORD;

   FileInfo: PVSFixedFileInfo;

   FileInfoSize: DWORD;

   Tmp: DWORD;

begin

   InfoSize := GetFileVersionInfoSize(PChar(FileName), Tmp);

   if InfoSize = 0 then

     //Файл не содержит информации о версии

   else

   begin    

     GetMem(Info, InfoSize);

     try

       GetFileVersionInfo(PChar(FileName), 0, InfoSize, Info);

       VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);

       Major1 := FileInfo.dwFileVersionMS shr 16;

       Major2 := FileInfo.dwFileVersionMS and $FFFF;

       Minor1 := FileInfo.dwFileVersionLS shr 16;

       Minor2 := FileInfo.dwFileVersionLS and $FFFF;

     finally

       FreeMem(Info, FileInfoSize);

     end;

   end;

end;