call another excute file and close itself ?

[ShumingWang]

Hi,
my.exe :

function main()

define dialog odlg source "odlg"

define button of odlg action (winexec(downloadfiles.exe),odlg:end())

activate dialog odlg

Return

Problem is that before close my.exe, the downloadfiles.exe is already running and donwload my.exe from web site,so my.exe will be overwrite fail.

Thanks !

Shuming Wang

[Antonio Linares]

Shuming,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local lUpgrade := .F.

   DEFINE DIALOG oDlg RESOURCE "odlg"

   @ 2, 2 BUTTON "Upgrade" OF oDlg SIZE 80, 20 ;
      ACTION ( lUpgrade := .T., oDlg:End() )

   ACTIVATE DIALOG oDlg

   if lUpgrade
      WinExec( "downloadfiles.exe" )
   endif

return nil


[ShumingWang]

Antonio,
The main my.exe file is still exist in memory and running during winexe("copyfile.exe").


#include "FiveWin.ch"

function Main()

local lUpgrade := .F.

DEFINE DIALOG oDlg RESOURCE "odlg"

@ 2, 2 BUTTON "Upgrade" OF oDlg SIZE 80, 20 ;
ACTION ( lUpgrade := .T., oDlg:End() )

ACTIVATE DIALOG oDlg

if lUpgrade
hLib = LOADLIBRARY( "urlmon.dll")
URLDownloadToFile( 0, "www.my.com/down/my.exe", ".\tmp\my.exe", 0, 0 ) == 0
FREELIBRARY( hLib )
WinExec( "copyfile.exe" )
endif

return nil

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



copyfile.prg

#include "fivewin.ch"
FUNCTION main(cpath)
local afiles
msgwait("正在更新文件","",2)


afiles:=directory(".\tmp\*.*")

for i:=1 to len(afiles)
copyfile( "\"+CURDIR()+"\tmp\"+afiles[i,1] ,afiles[i,1] ,.f.)
next

winexec("my.exe")

return


Thank you!
Shuming Wang

[Antonio Linares]

Shuming,

In downloadfiles.exe do this:

Code: Select all  Expand view

while GetModuleHandle( "my.exe" ) != 0
   SysRefresh()
end


So it will wait until my.exe finishes

[ShumingWang]

Antonio,

Sometime works, sometimes fail .

Thank you!

Shuming Wang

[Jeff Barnes]

I have done this in the past:

Code: Select all  Expand view

SHELLEXECUTE(0,0,"DownloadFile.exe",0,0,1 )
dbcloseall()
freelibrary( hBorland )
set resources to
clear memory
ResAllFree()
if ! empty( oWnd )
    oWnd:end()
endif
quit


Hope this helps,
Jeff

[ShumingWang]

Jeff,
Working !
Thank you !
Shuming Wang