Tengo el siguiente problema, he confeccionado una aplicaci贸n tipo menu para hacer llamadas a otros programas. Funciona perfectamente pero cuando cierro la aplicaci贸n sigue estando en el administrador de tareas, es decir no cerr贸. Hay alguna manera de forzar el cierre ?. Muchas gracias de antemano por cualquier ayuda.
Salu2
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cerrar programa
DEFINE BUTTON oSaida OF OBAR RESOURCE "SAIDA", "SAIR2" PROMPT "Saida" ;
MESSAGE "Saida do Programa" ;
TOOLTIP "Saida do Programa-Use <Alt+Z>" ;
ACTION( ( Click(), oSaida:Toggle(), TERMINAR(), oSaida:GoUp() ) ) ;
NOBORDER GROUP TOP
ACTIVATE WINDOW OWNDMAIN MAXIMIZED ;
VALID( TERMINAR() )
// -----------------------------------------------------------------------
// Fun鈥∶唎.....: Terminar()
// Descri鈥∶唎..: Fun鈥∶唎 de Saida do Programa.
// Para : Nenhum.
// Devolve....: Nada.
// -----------------------------------------------------------------------
STATIC FUNCTION TERMINAR()
LOCAL oDlg, oFontSay, IDCor, oBrush, oSaida, oCancela, oGroup, oQuestao
PUBLIC XSINALSONOR
IF VAL( XSINALSONOR ) = 2
SndPlaySound( "Encerra.Wav" )
ENDIF
DEFINE FONT oFontSay NAME "Arial" SIZE 0, -14 BOLD
DEFINE BRUSH oBrush RESOURCE "LOGO2" //-> PEGA A BITMAP DO ARQUIVO.RES(LOGO.BMP)
DEFINE DIALOG oDlg RESOURCE "TERMINAR" ;
BRUSH oBrush TRANSPARENT
oDlg:lHelpIcon := .F.
For iDcor=401 TO 402
REDEFINE SENSITIVE SAY ID IDCor ;
COLOR CLR_VERMELHO OF oDlg ;
UPDATE RAISED CENTER FONT oFontSay TRANSPARENT
Next IDCor // By Ednaldo Rolim - Yes!
REDEFINE DYNAMIC SAY ID 801 OF oDlg ;
PROMPT ( OemToAnsi( " Sugest盲es: " + ;
"kmt_karinha@pop.com.br " + ;
"(11) 3106-2832 / 8243-5632 " ) ) ;
CENTERED HORIZONTAL SCROLL SPEED 53 WRAP ;
COLOR CLR_BLACK, nRGB( 255, 255, 150 ) ;
FONT oFontSay
REDEFINE GROUP oGroup ID 501 OF oDlg ;
COLOR nRGB( 000, 000, 000 ), nRGB( 135, 206, 235 ) ;
FONT oFontSay TRANSPARENT
REDEFINE BITMAP oQuestao ID 121 RESOURCE "F_QUESTAO2" TRANSPARENT OF oDlg
REDEFINE BUTTON oSaida ID 301 OF oDlg ;
ACTION( oDlg:End(), FINALIZA() ) CANCEL UPDATE
oSaida:cToolTip := ( OemToAnsi( "Saida - Exit - Finalizar o Programa " ) )
REDEFINE BUTTON oCancela ID 302 OF oDlg ACTION( oDlg:End() ) CANCEL UPDATE
oCancela:cToolTip := ( OemToAnsi( "Cancelar a Saida e Voltar ao Programa " ) )
SET FONT OF oSaida TO oFontSay
SET FONT OF oCancela TO oFontSay
ACTIVATE DIALOG oDlg CENTERED
oBrush:End()
oFontSay:End()
RETURN( .F. )
STATIC FUNCTION FINALIZA()
FreeResources() // Set Resources To
DBCLOSEALL()
Release All
SysRefresh()
__QUIT()
RETURN( .T. )Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Gracias Karinha por responder, me he dado cuenta que la aplicaci贸n no cierra si llamo aplicaciones DOS, no tengo ese problema si llamo aplicaciones Windows. He probado tu sugerencia pero no funcion贸 ( En aplicaciones dos, si para prog windows ). Alguna otra sugerencia. Gracias de antemano
Salu2
Horacio, intenta con esto:
Saludos,
Adhemar
dBCloseAll()
Set Resources To
resallfree();memory(-1);PostQuitMessage(0)
__Quit()Saludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
Adhemar, funcion贸 correctamente. Muchisimas gracias.
Salu2