Cómo obtengo valores de la VERSIONINFO

[goosfancito]

Estimados,
Tengo esta informacion metida en una DLL,

Code: Select all  Expand view

1 VERSIONINFO
FILEVERSION 1, 0, 0, 0
PRODUCTVERSION 1, 0, 0, 0
FILEOS VOS_NT_WINDOWS32
FILETYPE VFT_APP
{
BLOCK "StringFileInfo"
{
  BLOCK "040904E4"
  {
   VALUE "CompanyName", "My Company\000\000"
   VALUE "FileDescription", "Description from .def file here\000"
   VALUE "FileVersion", "1.00\000\000"
   VALUE "InternalName", "Application name\000"
   VALUE "LegalCopyright", "Copyright © My Company 1993\000\000"
   VALUE "OriginalFilename", ".exe file name here\000"
  }

}

BLOCK "VarFileInfo"
{
  VALUE "Translation", 0x409, 1252
}

}

Como hago para poder obtener los datos, como ser version, nombre del programa, etc. desde codigo FWH o FW?

[Antonio Linares]

Gustavo,

Tienes que usar la función del API de Windows, GetFileVersionInfo()

[goosfancito]

ok

[goosfancito]

He intentado hacer esto:

Code: Select all  Expand view

FUNCTION main()
   LOCAL lpData

   getfiveina("c:\WINDOWS\SYSTEM\WINASPI.DLL",,, lpData )

   ? lpdata

   RETURN ( NIL )

//------------------------------------------------------------------------------

DLL32 FUNCTION GetFiVeInA;
      ( lptstrFilename AS STRING, ;
        dwHandle AS LONG, ;
        dwLen AS LONG, ;
        @lpData AS LPSTR ) ;
   AS LONG PASCAL;
   FROM "GetFileVersionInfoA" LIB "VERSION"

Y recibo un BRUTO cero, como no estoy acostumbrado al uso de estas DLL32, alguien podría darme una mano?