FiveTech Software tech support forums

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

Alex,

Pruébalo así:

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

gracias antonio pero lamentablemente sigue sin terminarse el proceso

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