JM,
Este código está funcionando bien con FWH 64. He implementado unos cambios en la funcion FWCALLDLL() para 64 bits,
que aunque se llama igual que la usada en 32 bits, su código es muy diferente:
Te envío por email las librerias modificadas. En la próxima versión de FWH 64 incluiremos estos cambios.
Este código está funcionando bien con FWH 64. He implementado unos cambios en la funcion FWCALLDLL() para 64 bits,
que aunque se llama igual que la usada en 32 bits, su código es muy diferente:
Te envío por email las librerias modificadas. En la próxima versión de FWH 64 incluiremos estos cambios.
#include "FiveWin.ch"
Function Main()
local cFichero := "c:\fwh\samples\test.exe"
local nTipo := 0
GetBinaryType( cFichero, @nTipo )
MsgInfo( nTipo, "Tipo de fichero" )
return nil
DLL32 FUNCTION GetBinaryType( cFile AS LPSTR, @nType AS PTR ) AS DWORD PASCAL FROM "GetBinaryTypeA" LIB "Kernel32.dll"
