Antonio, primero gracias por la atención tan rápida y completa.
Probé la librerías que me enviaste, pero sigue dando el mismo error.
Te adjunto el .bat de compilación por si me falta o sobra alguna librería. Este .bat funcionaba perfecto, pero tene en cuenta que la ultima versión que tenia era creo de enero del 2012
- Code: Select all Expand view
@ECHO OFF
CLS
ECHO +----------------------------------------------------------------------------+
ECHO | FWH 64 for Harbour 11.03 (MSVC++) Mar. 2011 Harbour development power |-
ECHO | (c) FiveTech, 1993-2011 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 |-
ECHO +----------------------------------------------------------------------------+-
ECHO -----------------------------------------------------------------------------
if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST
if "%FWDIR%" == "" set FWDIR=F:\wFH64\FWH64
if "%HBDIR%" == "" set HBDIR=F:\wFH64\Harbour64
ECHO Compiling...
set hdir=%HBDIR%
set hdirl=%hdir%\lib\vc64
set vcdir=F:\wFH64\vc64
set include=%vcdir%\include;%hdir%\include;%include%
set lib=%vcdir%\lib;%hdir%\lib;%lib%
%hdir%\bin\harbour %1 /n /i%fwdir%\include;%hdir%\include /w /p %2 %3 2>comp.log
IF ERRORLEVEL 1 GOTO COMPILEERROR
@type comp.log
ECHO _______________________________________________________________________________
%vcdir%\bin\cl -TP -W3 -c %1.c
:ENDCOMPILE
IF EXIST %1.rc %vcdir%\bin\rc -r -D__64__ %1
echo %1.obj > msvc.tmp
echo %fwdir%\lib\FiveH64.lib %fwdir%\lib\FiveHC64.lib >> msvc.tmp
echo %hdirl%\hbrtl.lib >> msvc.tmp
echo %hdirl%\hbvm.lib >> msvc.tmp
echo %hdirl%\gtgui.lib >> msvc.tmp
echo %hdirl%\hblang.lib >> msvc.tmp
echo %hdirl%\hbmacro.lib >> msvc.tmp
echo %hdirl%\hbrdd.lib >> msvc.tmp
echo %hdirl%\rddntx.lib >> msvc.tmp
echo %hdirl%\rddcdx.lib >> msvc.tmp
echo %hdirl%\rddfpt.lib >> msvc.tmp
echo %hdirl%\hbsix.lib >> msvc.tmp
echo %hdirl%\hbdebug.lib >> msvc.tmp
echo %hdirl%\hbcommon.lib >> msvc.tmp
echo %hdirl%\hbpp.lib >> msvc.tmp
echo %hdirl%\hbcpage.lib >> msvc.tmp
echo %hdirl%\hbwin.lib >> msvc.tmp
echo %hdirl%\hbcplr.lib >> msvc.tmp
echo %hdirl%\hbpcre.lib >> msvc.tmp
echo %hdirl%\hbct.lib >> msvc.tmp
echo %hdirl%\hbziparc.lib >> msvc.tmp
echo %hdirl%\hbmzip.lib >> msvc.tmp
echo %hdirl%\hbzlib.lib >> msvc.tmp
echo %hdirl%\minizip.lib >> msvc.tmp
echo %hdirl%\xhb.lib >> msvc.tmp
echo %hdirl%\png.lib >> msvc.tmp
rem Uncomment these two lines to use Advantage RDD
rem echo %hdirl%\rddads.lib >> msvc.tmp
rem echo %hdirl%\ace32.lib >> msvc.tmp
echo %vcdir%\lib\kernel32.lib >> msvc.tmp
echo %vcdir%\lib\user32.lib >> msvc.tmp
echo %vcdir%\lib\gdi32.lib >> msvc.tmp
echo %vcdir%\lib\winspool.lib >> msvc.tmp
echo %vcdir%\lib\comctl32.lib >> msvc.tmp
echo %vcdir%\lib\comdlg32.lib >> msvc.tmp
echo %vcdir%\lib\advapi32.lib >> msvc.tmp
echo %vcdir%\lib\shell32.lib >> msvc.tmp
echo %vcdir%\lib\ole32.lib >> msvc.tmp
echo %vcdir%\lib\oleaut32.lib >> msvc.tmp
echo %vcdir%\lib\uuid.lib >> msvc.tmp
echo %vcdir%\lib\odbc32.lib >> msvc.tmp
echo %vcdir%\lib\odbccp32.lib >> msvc.tmp
echo %vcdir%\lib\iphlpapi.lib >> msvc.tmp
echo %vcdir%\lib\mpr.lib >> msvc.tmp
echo %vcdir%\lib\version.lib >> msvc.tmp
echo %vcdir%\lib\wsock32.lib >> msvc.tmp
echo %vcdir%\lib\msimg32.lib >> msvc.tmp
echo %vcdir%\lib\oledlg.lib >> msvc.tmp
echo %vcdir%\lib\PsApi.lib >> msvc.tmp
IF EXIST %1.res echo %1.res >> msvc.tmp
ECHO _______________________________________________________________________________
%vcdir%\bin\link @msvc.tmp /nologo /subsystem:windows /force:multiple /NODEFAULTLIB:libc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO +----------------------------------------------------------------------------+
ECHO | |
ECHO | Aplicacion %1 compilada satisfactoriamente |
ECHO | |
ECHO +----------------------------------------------------------------------------+
::%1
@del %1.obj
@del %1.ppo
@del %1.c
@del msvc.tmp
@del comp.log
mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Ok Application")(Window.close)
rem mshta m = vbscript:CreateObject("SAPI.SpVoice").Voice m.GetVoices("gender=male;language=34" ).Item(0)
rem mshta m.Speak("Ok Application")(Window.close)
GOTO EXIT
::ECHO
rem delete temporary files
@del %1.c
@del msvc.tmp
:COMPILEERROR
@type comp.log
ECHO * Compiling errors *
GOTO EXIT
:LINKERROR
ECHO * Linking errors *
GOTO EXIT
:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensión PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT
:NOEXIST
ECHO The specified PRG %1 does not exist
:EXIT
Pause
Muchísimas gracias por tu apoyo.
Un gran abrazo. Miguel
