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
app auto upgrade
-
- Posts: 454
- Joined: Sun Oct 30, 2005 6:37 am
- Location: Guangzhou(Canton),China
- Enrico Maria Giordano
- Posts: 7355
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
Re: app auto upgrade
Try to delete the original EXE in a loop up to it's deleted.
EMG
EMG
Re: app auto upgrade
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)
Re: app auto upgrade
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
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
![Wink ;-)](./images/smilies/icon_wink.gif)
http://www.xdata.cl - Desarrollo Inteligente
----------
Lenovo Legion Y520, 16GB Ram, 1 TB NVME M.2, 1 TB SSD, GTX 1050
-
- Posts: 454
- Joined: Sun Oct 30, 2005 6:37 am
- Location: Guangzhou(Canton),China
Re: app auto upgrade
Adolfo,
Could you post here ? for in our counrty many web/ip be forbidden.
Regards!
Shuming Wang
Could you post here ? for in our counrty many web/ip be forbidden.
Regards!
Shuming Wang