Cómo obtengo valores de la VERSIONINFO

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Cómo obtengo valores de la VERSIONINFO
Posted: Wed Apr 05, 2006 02:20 PM

Estimados,
Tengo esta informacion metida en una DLL,

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?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Cómo obtengo valores de la VERSIONINFO
Posted: Fri Apr 07, 2006 10:18 AM

Gustavo,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Cómo obtengo valores de la VERSIONINFO
Posted: Fri Apr 07, 2006 10:51 AM

ok

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Cómo obtengo valores de la VERSIONINFO
Posted: Fri Apr 07, 2006 01:07 PM

He intentado hacer esto:

Code: Select all Collapse

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?

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion