Help - What about agetfileversion()

Sectie: FoxPro
Auteur(s): Guus Endeveld
Publicatiedatum: 26-2-2006
Keywords: Visual FoxPro
Type bijdrage: Tip
Taal: Nederlands
Rating:

Currently 0/5 Stars.
1
2
3
4
5

* WhatAbout
* (c) 2002-2006 Guus Endeveld
* Returns full info about the executable at runtime in a messagebox, for as far
* you provided for this information in the Version command before building.
* You can enhance this programm with more info if you like; see the Fox Help

local lcInfo
local array laFileInfo[1]
AGETFILEVERSION(laFileInfo,sys(16,0)) && get the file version info
lcInfo=''
if alen(laFileInfo)>1
   if lFullInfo
      if !empty(laFileInfo(10))                       && product name
         lcInfo=lcInfo+ltrim(laFileInfo(10))+chr(13)
      endif
      if !empty(laFileInfo(3))                        && file description
         lcInfo=lcInfo+laFileInfo(3)+chr(13)
      endif
      if !empty(laFileInfo(4))                        && file version
         lcInfo=lcInfo+'Version '+laFileInfo(4)+chr(13)+chr(13)
      endif
      if !empty(laFileInfo(2))                        && Companyname
         lcInfo=lcInfo+laFileInfo(2)+chr(13)+chr(13)
      endif
      if !empty(laFileInfo(6))                        && Copyright
         lcInfo=lcInfo+laFileInfo(6)+chr(13)+chr(13)
      endif
      if !empty(laFileInfo(1))                        && comments
         lcInfo=chr(13)+lcInfo+laFileInfo(1)+chr(13)+chr(13)
      endif
      =messagebox(lcInfo,0,'     INFO '+laFileInfo(10))
   endif
endif

return lcInfo