app auto upgrade

[ShumingWang]

Hi !
I want self upgrade,code like :
1. app.prg
#include "fivewin.ch"
FUNCTION main()
local odlg

define DIALOG odlg
@1,1 button "updatde" OF odlg action (odlg:end(),winexec("download.exe"))
activate dialog odlg
return

2. download.prg :

#include "fivewin.ch"
#include "dll.ch"
static hLib

FUNCTION main()

hLib = LOADLIBRARY( "urlmon.dll")
if URLDownloadToFile( 0, "http://www.xtech.com.cn/down/app.exe", ".\app.exe", 0, 0 )<>0
?"error"
end

FREELIBRARY( hLib )
return

DLL32 FUNCTION URLDownloadToFile(pCaller AS LONG,szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG);
AS LONG PASCAL;
FROM "URLDownloadToFileA";
LIB hlib

================
Run time error, it seems main app.exe still running ,not closed

Regards!
Shuming Wang

[Enrico Maria Giordano]

Try to delete the original EXE in a loop up to it's deleted.

EMG

[Patrizio]

I wait for 60 seconds and if I can't delete the original .exe I return an error (it may be used from another user)

[Adolfo]

Shuming Wang

Here you have all you want to do.
http://bielsys.blogspot.com/

Have a look at "ACTUALIZACION AUTOMATICA", there are samples to do it by LAN, and via ftp

Greetings from Chile

[ShumingWang]

Adolfo,
Could you post here ? for in our counrty many web/ip be forbidden.
Regards!
Shuming Wang