- Code: Select all Expand view
@Echo Off
@Echo On
Cls
Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo ³ FiveWin For Harbour - Iniciando... Harbour Development Power ³Ü
Echo ³ (c) FiveTech, 1993-2020 For Microsoft Windows 95/98/NT/2000/ME And XP ³Û
Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
Echo .
Echo Aguarde... Compilando os Modulos do Programa...
Set GT=gtgui
Set hdir=C:\HBBCC74
Set bcdir=C:\BCC74
Set fwhdir=C:\FwH1905
@If Exist *.Obj Del *.Obj
@If Exist *.Map Del *.Map
@If Exist *.TDS Del *.TDS
@If Exist *.Bc Del *.bc
@If Exist *.C Del *.C
@If Exist *.HC Del *.HC
If Exist JIMMYSKI.Exe Del JIMMYSKI.Exe
%hdir%\bin\harbour JIMMYSKI /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p > Erro.log 2> ERROS.LOG
%bcdir%\bin\bcc32 -M -c -v -O2 -eJIMMYSKI.Exe -I%hdir%\include -I%bcdir%\include JIMMYSKI.C >> Erro.log 2>> ERROS.LOG
If ErrorLevel 1 Type Erro.log | More
If ErrorLevel 1 Goto Exit
%bcdir%\bin\BRC32.Exe -R XPLOOK.RC
:ENDCOMPILE
%bcdir%\bin\ilink32 -aa -Gn -Tpe -s -v @HB.LNK
Echo .
IF ERRORLEVEL 1 GOTO LINKERROR
Cls
Echo .
Echo * Aplicacao Foi Desenvolvida Com Sucesso
Echo .
C:\PECOMPACT\PEC2 /NB /EMP:Y /TM:Y /CR:Y /MC JIMMYSKI.Exe
Echo .
JIMMYSKI
GOTO EXIT
:LINKERROR
PAUSE * Applicacao Nao Foi Desenvolvida Com Sucesso. Veja ERRO.LOG *
GOTO EXIT
Echo .
CLS
:EXIT
Regards, saludos.