unit Unit2;

interface
uses Classes, Windows, SysUtils;

type
 TVersionNumber = record
   MSHigh : Word;
   MSLow : Word;
   LSHigh : Word;
   LSLow : Word;
 end;

TVS_FIXEDFILEINFO = record
        dwSignature : longint;
        dwStrucVersion : longint;
        dwFileVersionMS : longint;
        dwFileVersionLS : longint;
        dwFileFlagsMask : longint;
        dwFileFlags : longint;
        dwFileOS : longint;
        dwFileType : longint;
        dwFileSubtype : longint;
        dwFileDateMS : longint;
        dwFileDateLS : longint;
   end;
PVerInfo = ^TVS_FIXEDFILEINFO;

function FileVersionDigits(filename:string; var VersionNr:TVersionNumber):integer;

implementation
function FileVersionDigits(filename:string; var VersionNr:TVersionNumber):integer;
var sz,len:dword;
    l:dword;
    buf:pointer;
    zKeyPath : array[ 0 .. 255 ] of Char;
    VerInfo : PVerInfo;
begin
  sz:=GetFileVersionInfoSize(pchar(filename),l);
  getmem(buf,sz);
  if ( not GetFileVersionInfo(pchar(filename),  0 , Sz, Buf) ) then result :=  0 
  else result :=  1 ;
  VersionNr.MSHigh:= 0 ;
  VersionNr.MSLow:= 0 ;
  VersionNr.LSHigh:= 0 ;
  VersionNr.LSLow:= 0 ;
  if (sz> 0 ) and (VerQueryValue(Buf, StrPCopy(zKeyPath, '\'), pointer(VerInfo), Len)) then
  begin
   VersionNr.MSHigh:=HIWORD(VerInfo.dwFileVersionMS);
   VersionNr.MSLow:=LOWORD(VerInfo.dwFileVersionMS);
   VersionNr.LSHigh:=HIWORD(VerInfo.dwFileVersionLS);
   VersionNr.LSLow:=LOWORD(VerInfo.dwFileVersionLS);
  end;
  FreeMem(buf,sz);
end;