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

1. 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

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

EMG

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,
Could you post here ? for in our counrty many web/ip be forbidden.
Regards!
Shuming Wang