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
