Terminar proceso no funciona !!!

[alex_cyr]

que tal pues ya lei los otros topics al respecto de terminar un proceso y me funciona lo del:
winexec('NXTAlma.exe')
PostQuitMessage(0)
__Quit()

pero estoy utilizando la clase FTP e Internet y cuando las pongo en mi programa esto ya no funciona solicito su ayuda por favor gracias, les dejo mi programa:

#INCLUDE "FiveWin.ch"


function main()
LOCAL xlastupd,xpagina,xuser,xpass
LOCAL ointernet,oftp
*LEE LOS PARAMETROS DEL SISTEMA
INI oIni FILE ".\NXTSIV.INI"
GET xlastupd SECTION "FTP" ENTRY 'LastUpd' OF oini DEFAULT 0
GET xpagina SECTION "FTP" ENTRY 'pagina' OF oini DEFAULT 'www.mipagina.com'
GET xuser SECTION "FTP" ENTRY 'usuario' OF oini DEFAULT 'usuario'
GET xpass SECTION "FTP" ENTRY 'pass' OF oini DEFAULT 'pass'
ENDINI

dbusearea(.t.,,xcontrol,'CON',.T.)
if xlastupd < CON->lastupd
*BAJA EL EJECUTABLE DEL FTP
oInternet := TInternet():New()
oFTP := TFTP():New(xpagina, oInternet,xuser,xpass)

If Empty( oFTP:hFTP )
oInternet:End()
oFtp:end()
else
llocal := curdir()+'\NXTALMA.zip'
lremoto:= 'NXTALMA.zip'
FtpGetFile(oFTP:hFTP,lremoto,llocal)

oFtp:end()
oInternet:End()
*DECOMPACTA EL ARCHIVO RECIBIDO
IF HB_UNZIPFILE( llocal,,,,llocal)
INI oIni FILE ".\NXTSIV.INI"
SET SECTION "FTP" ENTRY 'LastUpd' TO xlastudp OF oini
ENDINI
msginfo('Su sistema se ha actualizado con exito')
EndIF
EndIf
endif
CON->(dbclosearea())

winexec('NXTAlma.exe')
PostQuitMessage(0)
__Quit()
return



Agradezco su ayuda.

Alex

[Antonio Linares]

Alex,

Pruébalo así:

winexec('NXTAlma.exe')
PostQuitMessage(0)
SysRefresh()
__Quit()
return

[alex_cyr]

gracias antonio pero lamentablemente sigue sin terminarse el proceso

[AOKISANTOS]

Espero que de ajúde meu amigo !


http://www.fivewin.com.br/exibedicas.asp?id=681

Para mim foi o que resolveu!

Um abraço
Aoki