Function getVersion(ExeName : string) : string;
var
   Info: Pointer;
   InfoSize: DWORD;
   FileInfo: PVSFixedFileInfo;
   FileInfoSize: DWORD;
   Tmp: DWORD;
   Major1, Major2, Minor1, Minor2: Integer;
begin
// Get the size of the FileVersionInformatioin
    InfoSize := GetFileVersionInfoSize(PChar(ExeName), Tmp);
// If InfoSize =  0 , then the file may not exist, or
// it may not have file version information in it.
    if InfoSize =  0  then
    raise Exception.Create('Can''t get file version information for '  + ExeName);
// Allocate memory for the file version information
    GetMem(Info, InfoSize);
    try
// Get the information
    GetFileVersionInfo(PChar(ExeName),  0 , InfoSize, Info);
// Query the information for the version
    VerQueryValue(Info, '\', Pointer(FileInfo), FileInfoSize);
// Now fill in the version information
    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;
  result := format('%d.%d.%d.%d', [Major1, Major2,Minor1, Minor2]);
  exit;
end;