Ну примерно так:
FUNCTION ulong GetFileVersionInfoSizeA ( REF string lpFilename, REF ulong lpdwHandle ) LIBRARY "version.dll"
FUNCTION integer GetFileVersionInfoA ( REF string lpFilename, REF ulong lpdwHandle, ulong dwLen, REF string lpData ) LIBRARY "version.dll"
FUNCTION boolean VerQueryValueA ( REF string lpBlock, string lpSubBlock, REF long lpBuffer, REF uint puLen ) LIBRARY "version.dll"


ulong dwHandle, dwLength
string ls_Buff, ls_key, ls_versioninfo
uint lui_length
long ll_pointer
string as_filename
as_filename = exe_name
integer li_rc
dwLength = GetFileVersionInfoSizeA( ref as_filename, dwHandle )
IF dwLength <= 0 THEN
RETURN false
END IF
ls_Buff = Space( dwLength )
li_rc = GetFileVersionInfoA( as_filename, dwHandle, dwLength, ls_Buff )
IF li_rc = 0 THEN
RETURN false
END IF
// the strange numbers below represents the country and language
// of the version ressource.
ls_key = "\StringFileInfo\040904e4\ProductVersion"
IF NOT VerQueryValueA( ls_buff, ls_key, ll_pointer, lui_length ) OR &
lui_length <= 0 THEN
ls_versioninfo = "?"
ELSE
ls_versioninfo = Space( lui_length )
CopyMemory( ls_versioninfo, ll_pointer, lui_length )
END IF

return true

Не правда
Уже в 8-ке появились опции при сборке проекта
В 6.5 и по-моему в 7-ке не было

Да забыл уточнить в 8-ке (прошу не пинать, давно было) извлекалось не ProductVersion (это я для 9-ки немножко переделал), просто надо полностью просмотреть извлекаемую информацию (то-ли версия файла) не могу вспомнить, но то что это еще в 8-ке работало - факт