.EXE nao sai da memoria do rWindows

[qiinfo]

Boa noite a todos,

Estou anexando aqui um pequeno exemplo que veio no diretorio do fivewin "endapp.prg", pois nao consegui entender porque o programa nao sai da memoria.

Segui os seguintes passos.

1) executei o endapp.exe

2) a calculadora foi ativada e desativada corretamente dentro do programa endapp.prg

3) teclei ctrl+alt+del - aí constatei que o nome "calc" ainda estava na tabela do rWindows.

Uso o fivewin 2.2c e fiz este teste em um rWindows 98B

O que será ?

Será que no fivewin 2.4 não acontece isto ?

Teria alguma outra maneira de desativar o programa calc da memoria ?

Obrigado ,

Rossine.

ENDAPP.PRG

**************************

// Sample showing how to activate and to finish an external application

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

WinExec( "Calc" ) // Let's execute the calculator

MsgInfo( "Now we will close the calculator" )

// Use "Calculator" ( or "calc" ? ) in USA for "Calculadora"

? SendMessage( FindWindow( 0, "Calculadora" ), WM_CLOSE )

MsgInfo( OemToAnsi( "Voil " ) )

return nil

[karinha]

FUNCTION DO MEU MENU PRINCIPAL....

... Bla bla bla

... Bla bla bla

... Bla bla bla bla etc etc etc

SAIDA (EXIT) DO MEU PROGRAMA PRINCIPAL...

// Assim, NÆo Pisca a Janela

ACTIVATE WINDOW OWNDMAIN MAXIMIZED ;

ON INIT oTimer := FlashWndTimer( oWndMain,, ;

{|| IsIconic( oWndMain:hWnd ) }, DLGINICIAL() ) ;

VALID Confirma("Atenção! Se Você Fechar a Aplicação, " + ;

"Voltará Para o RWindows. " + ;

"Posso Desligar o Programa?") ;

ON PAINT ( dbCommitAll(), ;

PalBmpDraw( hDc, OWNDMAIN:nHeight-235, ;

OWNDMAIN:nWidth-410, oBmp:hBitmap ) )

CLOSE DATABASES

DEACTIVATE FONT oFnt

oTimer:End()

SET _3DLOOK OFF

SET RESOURCES TO

oWndMain:CLOSEALL()

ReleaseDC( oBmp )

SysRefresh() // Para Descarregar Completamente o bitmap do Fundo

SndPlaySound(".\Encerra.Wav" )

// Para Desligar A Calculadora, Caso Fique No Rodapé Do RWindows

FechaAPPEx()

Rossine Compare e copie para o seu menu principal o que estiver faltando.

RETURN NIL

//-----------------------------------------------------------------------------

// Na sua biblioteca de funções ponha isto... Teste.

// Fechar a Calculadora do Windows

FUNCTION FechaAPPEx()

SendMessage( FindWindow( 0, "Calculadora" ), WM_CLOSE )

Return Nil

// Caso persista a falha, detone este Rwindows, e Instale o Millenium Edition ou

// o 2003 - Abraços e até...

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[qiinfo]

OK Joao , irei fazer alguns testes...

Obrigado,

Rossine.