FiveTech Software tech support forums

Code: Select all  Expand view

if not exist obj md obj
c:\bcc7164\bin\make -fclinica.mak

Code: Select all  Expand view

#Borland make 64 bits (c) FiveTech Software 2016

HBDIR=c:\harbour
BCDIR=c:\bcc7164
FWDIR=c:\fwh

#change these paths as needed
.path.obj = .\obj
.path.prg = .\
.path.ch  = $(FWDIR)\include;$(HBDIR)\include
.path.c   = .\
.path.rc  = .\

PRG =        \
clinica.prg  \
another.prg

PROJECT    : clinica.exe

clinica.exe  : $(PRG:.prg=.obj) $(C:.c=.obj) clinica.res
   echo off
   echo $(BCDIR)\lib\c0w64.o + > b64.bc
   echo obj\clinica.obj obj\another.obj, + >> b64.bc
   echo clinica.exe, + >> b64.bc
   echo clinica.map, + >> b64.bc
   echo $(FWDIR)\lib\Five64.a $(FWDIR)\lib\FiveC64.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbrtl.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbvm.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\gtgui.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hblang.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbmacro.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbrdd.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\rddntx.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\rddcdx.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\rddfpt.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbsix.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbdebug.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbcommon.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbpp.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbwin.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbcpage.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbct.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbcplr.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbpcre.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\xhb.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbziparc.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbmzip.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbzlib.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\minizip.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\png.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbusrrdd.a + >> b64.bc
   echo $(HBDIR)\lib\bcc64\hbtip.a + >> b64.bc

   echo $(BCDIR)\lib\cw64.a + >> b64.bc
   echo $(BCDIR)\lib\psdk\kernel32.a + >> b64.bc
   echo $(BCDIR)\lib\psdk\user32.a + >> b64.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.a + >> b64bc
   echo $(BCDIR)\lib\import64.a, >> b64.bc

   IF EXIST clinica.res echo clinica.res >> b64.bc
   $(BCDIR)\bin\ilink64 -Gn -aa -Tpe -s @b64.bc
   if ERRORLEVEL 0 clinica.exe
   del b64.bc

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /L /N /W /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
  $(BCDIR)\bin\bcc64 -c -tWM -I$(HBDIR)\include -I$(BCDIR)\include\windows\sdk -I$(BCDIR)\include\windows\crtl -oobj\$&.obj obj\$&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc64 -I$(BCDIR)\include\windows\sdk -I$(BCDIR)\include\windows\crtl -oobj\$& @tmp $&.c
  del tmp

clinica.res : clinica.rc
  $(BCDIR)\bin\brc32.exe -r -D__64__ -I%bcdir%\include -I%bcdir%\include\windows\sdk clinica.rc
 

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd
   
   Test()
   
   ACTIVATE WINDOW oWnd

return nil

Code: Select all  Expand view

#include "FiveWin.ch"

function Test()

   MsgInfo( "ok" )

return nil

Code: Select all  Expand view

// Add here the resources to use

Enrico Maria Giordano wrote:You can download it from Mel Smith website, that is the official xHarbour download page:

http://www.whosaway.com

EMG