* Скачивание файла с интернета
func DownLoad
lpara tcUrl, tcFile

local lcRet, lcFile, lnRes 

Declare Integer URLDownloadToFile In urlmon.Dll;
    INTEGER pCaller, String szURL, String szFileName,;
    INTEGER dwReserved, Integer lpfnCB

if file(tcFile)
	delete File (tcFile)
endif

lcFile = fullpath(sys(2015))
Wait 'Скачивание файла из интернета ...' window nowait noclear
lnRes = URLDownloadToFile(0, tcUrl, lcFile, 0, 0)
wait clear
if lnRes = 0
	if file(lcFile)
		copy File (lcFile) to (tcFile)
		delete File (lcFile)
		lcRet = 'Ok'
	else
		lcRet = 'Error: Файл не создался ' + lcFile
	endif
else
	lcRet = 'Error: ' + str(lnRes + 2^32)
endif
return lcRet