PureBasic Forums - English

Code: Select all

;GetFileVersionInfo for Purebasic ;Gets the Info from a DLL (If you want to write your own installer :)
;(c)2002 By Siegfried Rings (CodeGuru)
;

Procedure.s GetVersionInfo(Filename.s)
  sDummy.s=""
  If FileSize(Filename.s)>0
    Zero.l=10
    
    If OpenLibrary(1,"Version.dll")
      Length = CallFunction(1, "GetFileVersionInfoSizeA", @Filename.s,@Zero.l)
      
      If Length>0
        *Mem1=AllocateMemory(Length,0)
        
        If *Mem1>0
          Result = CallFunction(1, "GetFileVersionInfoA", @Filename.s,0,Length,*Mem1)
          
          If Result>0
            
            lplpBuffer.l=0
            puLen.l=0
            
            WhichOne.s="\\StringFileInfo\\040904B0\\ProductVersion"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s="Productversion="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\ProductName"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"ProductName="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\CompanyName"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"CompanyName="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\LegalCopyright"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"LegalCopyright="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\Comments"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"Comments="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\FileDescription"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"FileDescription="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\FileVersion"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"FileVersion="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\InternalName"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"InternalName="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\LegalTrademarks"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"LegalTrademarks="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\PrivateBuild"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"PrivateBuild="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\SpecialBuild"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"SpecialBuild="+PeekS(lplpBuffer): EndIf
            
            WhichOne.s="\\StringFileInfo\\040904B0\\Language"
            Result = CallFunction(1, "VerQueryValueA",*Mem1,@WhichOne.s,@lplpBuffer,@puLen)
            If Result:sdummy.s=sdummy.s + Chr(10) +"Language="+PeekS(lplpBuffer): EndIf
          EndIf
          
          FreeMemory(*Mem1)
          
        EndIf
      EndIf
      
      CloseLibrary(1)
      
    EndIf
    
  Else
    sdummy.s=Filename +" Not found !"
  EndIf 
  
  ProcedureReturn sDummy.s
EndProcedure

Path.s=Space(256)
Result=GetSystemDirectory_(Path.s,256)
Filename.s=Path+"\MSVBVM60.DLL" ;Check your File !
MessageRequester("Fileinfo for "+Filename.s,GetVersionInfo(Filename),0)