DOS Window type in an application FW

[TOTOVIOTTI]

Dear friends,
I need to run from a small application FW, a DOS-type window, then over time
I will convert to FW, but I need to get away fast.
Sorry for the insistence on this issue is that with Harbour GTWVT can be done, but not
no way it will work in xHarbour.
Thank you very much.
Roberto

(sorry for my bad english)

[RAMESHBABU]

Roberto,

Please try this.

Regards,

- Ramesh Babu P

Code: Select all | Expand

#include "hbgtinfo.ch"
#include "std.ch"
#include "box.ch"

REQUEST HB_GT_WVT

FUNCTION  Main()

LOCAL cStdnt_Name := Space( 25 ), nAdmn_No := 0, cFather := SPACE(25),;
      cAdd1 := SPACE(25), cAdd2 := SPACE(25),  cadd3 := SPACE(25), ;
      cCity := SPACE(20), GetList := {}


   SET COLOR TO "W+/B"
   CLS

   @  0, 0                 SAY "0"
   @  0, MAXCOL()-1        SAY MAXCOL() PICT "99"
   @  MAXROW(),0           SAY MAXROW() PICT "99"
   @  MAXROW(), MAXCOL()-1 SAY MAXCOL() PICT "99"

   DispBox( 5,14, 18, 66, B_DOUBLE + Space(1),"W+/GR+" ) 

   @  7, 17      SAY  "Name of the Student:" COLOR "W+/GR+" 
   @  7,COL()+2  GET  cStdnt_Name            COLOR "W+/G+,B/W" 
   @  9, 17      SAY  "Admn.No.           :" COLOR "W+/GR+" 
   @  9, COL()+2 GET  nAdmn_No               COLOR "W+/G+,B/W" PICT "99999"
   @ 11, 17      SAY  "Father's Name      :" COLOR "W+/GR+" 
   @ 11, 39      GET  cFather                COLOR "W+/G+,B/W" PICT "@!"
   @ 13, 17      SAY  "Address            :" COLOR "W+/GR+"
   @ 13, 39      GET  cAdd1                  COLOR "W+/G+,B/W" PICT "@!"
   @ 14, 39      GET  cAdd2                  COLOR "W+/G+,B/W" PICT "@!"
   @ 15, 39      GET  cAdd3                  COLOR "W+/G+,B/W" PICT "@!"
   @ 16, 17      SAY  "City               :" COLOR "W+/GR+" 
   @ 16, 39      GET  cCity                  COLOR "W+/G+,B/W" PICT "@!"
  

   READ
   
RETURN nil   

**********
 

BUILD.BAT

Code: Select all | Expand

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 9.12 - Dec. 2009           xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2009     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

ECHO Compiling...

if "%FWDIR%" == "" set FWDIR=C:\FWH
if "%XHDIR%" == "" set XHDIR=C:\xharbour
if "%2" == "/b" set GT=gtwin
if not "%2" == "/b" set GT=gtgui

set hdir=%XHDIR%
set hdirl=%hdir%\lib
set bcdir=c:\bcc582
set fwh=%FWDIR%

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log
IF ERRORLEVEL 1 GOTO COMPILEERRORS
@type comp.log

echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo C:\FWH\lib\Fivehx.lib C:\FWH\lib\FiveHC.lib >> b32.bc
echo %hdirl%\rtl.lib + >> b32.bc
echo %hdirl%\vm.lib + >> b32.bc
echo %hdirl%\%GT%.lib + >> b32.bc
echo %hdirl%\GTWVT.lib + >> b32.bc
echo %hdirl%\lang.lib + >> b32.bc
echo %hdirl%\macro.lib + >> b32.bc
echo %hdirl%\rdd.lib + >> b32.bc
echo %hdirl%\dbfntx.lib + >> b32.bc
echo %hdirl%\dbfcdx.lib + >> b32.bc
echo %hdirl%\dbffpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\debug.lib + >> b32.bc
echo %hdirl%\common.lib + >> b32.bc
echo %hdirl%\pp.lib + >> b32.bc
echo %hdirl%\pcrepos.lib + >> b32.bc
echo %hdirl%\ct.lib + >> b32.bc
echo %hdirl%\tip.lib + >> b32.bc
echo %hdirl%\hbzip.lib + >> b32.bc
echo %hdirl%\zlib.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
rem echo %bcdir%\lib\psdk\gdlib.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
ECHO * Compile 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

[TOTOVIOTTI]

RAMESHBABU:
Thank you very much for your input, but what I need is a window FW, run a DOS window,
for example, from a menu, call an application made in Clipper.
I hope you understand what I need.
Thank you very much again!
Roberto

[Otto]

Do you mean
winexec( "test.exe" )
Best regards,
Otto

[TOTOVIOTTI]

Thanks Otto,
but I tried it with Harbour that can be done,
as quen xHarbour can not ...
I need to stay within my application, do not shoot another exe ...
Roberto

[Antonio Linares]

Why don't you use Harbour ?

[TOTOVIOTTI]

Alfredo:

No uso Harbour porque me significaría migrar toda mi aplicación, pero si no queda otra tendré que ponerme en esa tarea....Muchas Gracias!

[Antonio Linares]

Con la version de Harbour actual es tan sencillo como que recompiles tus PRGs y cambies los nombres de las librerias que se enlazan.

Revisa buildh.bat en la carpeta samples de FWH para que veas los nombres de las librerias que tienes que usar.