PureBasic Forums - English

Code: Select all

;///////////////////////////////////////////////////////////////////
;
; Demo:             Windows API File Version Info
; Author:           Lloyd Gallant (netmaestro)
; Date:             May 06, 2010
; Target Compiler:  PureBasic 4.20 and later
; Target OS:        Microsoft Windows All (x86)
; License:          Free, no restrictions, no warranty whatsoever
;
;//////////////////////////////////////////////////////////////////

Pattern$ = "Executables (*.exe)|*.exe;|Dynamic Link Library (*.dll)|*.dll;|All files (*.*)|*.*"
Filename$ = OpenFileRequester("Please choose file to load", "", Pattern$, 0)

Import "version.lib"
  GetFileVersionInfoSizeA( *lptstrFilename, *lpdwHandle )
  GetFileVersionInfoA( *lptstrFilename, dwHandle, dwLen, *lpData)
  VerQueryValueA( *pBlock, *lpSubBlock, *lplpBuffer, *puLen)
EndImport

Global Dim Stringname$(12)
Restore stringnames
For i=1 To 12
  Read$ Stringname$(i)
Next

Structure LANGANDCODEPAGE 
  wLanguage.w
  wCodePage.w
EndStructure

infosize = GetFileVersionInfoSizeA( @filename$, @handle.i)
If infosize
  *lpData = AllocateMemory(infosize)
  If GetFileVersionInfoA( @filename$, 0, infosize, *lpdata)
    If VerQueryValueA( *lpdata, @"\VarFileInfo\Translation", @*lplpBuffer, @puLen)
      *readptr.LANGANDCODEPAGE = *lplpBuffer
      For i=0 To puLen/SizeOf(LANGANDCODEPAGE) - 1
        langandcodepage$ = RSet(Hex(*readptr\wLanguage),4,"0") + RSet(Hex(*readptr\wCodePage), 4, "0")
        For j=1 To 12
          SubBlock$ ="\\StringFileInfo\\" + langandcodepage$ + "\\" + Stringname$(j)
          If VerQueryValueA( *lpdata, @SubBlock$, @*stringbuffer, @Bytes) And Bytes
            Debug Stringname$(j)+": "+PeekS(*stringbuffer, Bytes)
          EndIf
        Next
        *readptr + SizeOf(LANGANDCODEPAGE)
      Next
    EndIf
  Else
    Debug "No version information available"
  EndIf
  FreeMemory(*lpData)
Else
  Debug "No version information available"
EndIf

DataSection 
  stringnames:
  Data.s "Comments",        "InternalName",     "ProductName"
  Data.s "CompanyName",     "LegalCopyright",   "ProductVersion"
  Data.s "FileDescription", "LegalTrademarks",  "PrivateBuild"
  Data.s "FileVersion",     "OriginalFilename", "SpecialBuild"
EndDataSection