* 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