FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Pantalla negra detras de ventana (SOLUCIONADO)
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Pantalla negra detras de ventana (SOLUCIONADO)

Posted: Fri Sep 23, 2016 03:54 PM
Hola foro

Al crear un archivo ejecutable, se puede evitar que al correrlo aparezca la pantalla negra del cmd?

Si lo ejecuto directamente desde windows con el icono creado aun sigue apareciendo, pero me gustaria no lo hiciera



Gracias por sus contribuciones

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: Pantalla negra detras de ventana

Posted: Fri Sep 23, 2016 04:03 PM
Code (fw): Select all Collapse
C:\XHARBOUR\lib\gtgui.Lib
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Pantalla negra detras de ventana

Posted: Fri Sep 23, 2016 04:15 PM

Como indica karinha, esto se debe a que en el scrip de construccion del exe, se llama a la libreria gtwin.lib (que es la que debe ser usada para app de consola), en el caso de fivewin, se debe utilizar la libreria gtgui.lib.

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Re: Pantalla negra detras de ventana

Posted: Fri Sep 23, 2016 05:57 PM

Ya lo hice, y sigue apareciendo

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM

Re: Pantalla negra detras de ventana

Posted: Fri Sep 23, 2016 11:11 PM

Crea un nuevo shortcut...

Posiblement estas usando un shortcut de un programa DOS...

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 12:25 AM

Saludos
Estas Usanco BCC cual version

Pues mostrar el parametro completa del ilink32 si estas usando BCC

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 02:12 AM
http://docwiki.embarcadero.com/RADStudio/Seattle/en/Static_Runtime_Libraries
tambien se me ha pasado por alto que se debe usar
c0w32.obj GUI EXE startup module

en lugar de
c0x32.obj
32-bit console-mode EXE startup module


salu2
carlos vargas
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 04:02 AM

Esto es lo que uso

@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for Harbour 13.12 - Dec. 2013 Harbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2013 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

if "%FWDIR%" == "" set FWDIR=...
if "%HBDIR%" == "" set HBDIR=c:\harbour
rem if "%2" == "/b" set GT=gtwin
rem if not "%2" == "/b" set GT=gtgui
set GT=gtgui

ECHO Compiling...

set hdir=%HBDIR%
set hdirl=%hdir%\lib
set fwh=%FWDIR%
if exist c:\bcc582 set bcdir=c:\bcc582

%hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w /p %2 %3 > comp.log 2> warnings.log
if errorlevel 1 goto COMPILEERRORS
@type comp.log
@type warnings.log

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

IF EXIST %1.rc %bcdir%\bin\brc32 -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1
rem IF EXIST %1.rc %vcdir%\bin\rc -r -d__FLAT__ %1

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\FiveH.lib %fwh%\lib\FiveHC.lib + >> b32.bc
echo %hdirl%\hbwin.lib + >> b32.bc
echo %hdirl%\gtwin.lib + >> b32.bc
echo %hdirl%\gtgui.lib + >> b32.bc
echo %hdirl%\hbrtl.lib + >> b32.bc
echo %hdirl%\hbvm.lib + >> b32.bc
echo %hdirl%\hblang.lib + >> b32.bc
echo %hdirl%\hbmacro.lib + >> b32.bc
echo %hdirl%\hbrdd.lib + >> b32.bc
echo %hdirl%\rddntx.lib + >> b32.bc
echo %hdirl%\rddcdx.lib + >> b32.bc
echo %hdirl%\rddfpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\hbdebug.lib + >> b32.bc
echo %hdirl%\hbcommon.lib + >> b32.bc
echo %hdirl%\hbpp.lib + >> b32.bc
echo %hdirl%\hbcpage.lib + >> b32.bc
echo %hdirl%\hbcplr.lib + >> b32.bc
echo %hdirl%\hbct.lib + >> b32.bc
echo %hdirl%\hbpcre.lib + >> b32.bc
echo %hdirl%\xhb.lib + >> b32.bc
echo %hdirl%\hbziparc.lib + >> b32.bc
echo %hdirl%\hbmzip.lib + >> b32.bc
echo %hdirl%\hbzlib.lib + >> b32.bc
echo %hdirl%\minizip.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc
echo %hdirl%\hbcurl.lib + >> b32.bc
echo %hdirl%\hbusrrdd.lib + >> b32.bc
echo %fwh%\lib\libcurl.lib + >> b32.bc

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

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\uuid.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\ws2_32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc
echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc
if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built *
rem signtool.exe sign /fd sha256 %1.exe
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:COMPILEERRORS
@type comp.log
@type warnings.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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 05:43 PM

Supuesta mente se ve bien.
La aplicacion que estas ejecutando es Grafica o Modo Texto.

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 06:59 PM

Modo Windows.

Aparece la ventana pero tambien detras de ella una pantalla de cmd negra...es lo que no se como evitar aparezca

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 07:25 PM

Es posible que un codigo pequeño que lo pueda reproducir con su bat de compilacion para ver en detalle el problema. y ver como te puedo ayudar

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 10:36 PM
echo %hdirl%\gtwin.lib + >> b32.bc <<<----------- borrar esta linea
echo %hdirl%\gtgui.lib + >> b32.bc
echo %hdirl%\hbrtl.lib + >> b32.bc
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Re: Pantalla negra detras de ventana

Posted: Sat Sep 24, 2016 10:45 PM

Lo estoy haciendo con los samples de FW

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM

Re: Pantalla negra detras de ventana

Posted: Sun Sep 25, 2016 12:29 AM

Dime exanctamente cual ejemplo, porque yo he compilado los ejemplos y no he tenido problemas.
Que version de fwh y bcc usas

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM

Re: Pantalla negra detras de ventana

Posted: Sun Sep 25, 2016 12:36 AM

Si corres el ejecutable este funciona pero detras muestra la ventana negra...eso es lo que quiero evitar

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity