41 lines
1.5 KiB
Plaintext
41 lines
1.5 KiB
Plaintext
*!* Exemplu apel din program care se actualizeaza singur
|
|
*!* gcDirMare, gcNumeProgram, gcTempPath, gcAppPath, gcAppName, poLog = D:\ROA
|
|
|
|
*!* lcServer = setare care se citeste din settings.ini al programului
|
|
loUpdate=CREATEOBJECT("oUpdate",lcServer)
|
|
loUpdate.updatecheck(gcNumeProgram,.T.,2)
|
|
RELEASE loUpdate
|
|
|
|
*!* trebuie adaugate in fiecare proiect
|
|
*!* trebuie sa existe variabila gcDirMare
|
|
SET PROCEDURE TO filebringer.prg additive
|
|
SET PROCEDURE TO iniacces.prg ADDITIVE
|
|
SET PROCEDURE TO oupdate.prg additive
|
|
SET PROCEDURE TO procese.prg additive
|
|
SET PROCEDURE TO version.prg additive
|
|
SET PROCEDURE TO wwapi.prg ADDITIVE
|
|
SET PROCEDURE TO wwcodeupdate.prg additive
|
|
SET PROCEDURE TO wwhttp.prg ADDITIVE
|
|
SET PROCEDURE TO xmlaccess.prg additive
|
|
SET PROCEDURE TO xmlparser.prg additive
|
|
|
|
SET CLASSLIB TO wwdialogs.vcx ADDITIVE
|
|
|
|
Declare Integer GetPrivateProfileString In Kernel32 ;
|
|
string, String, String, String @, Integer, String
|
|
Declare Integer WritePrivateProfileString In Kernel32 ;
|
|
string, String, String, String
|
|
Declare Integer CopyFile In kernel32;
|
|
STRING lpExistingFileName,;
|
|
STRING lpNewFileName,;
|
|
INTEGER bFailIfExists
|
|
Declare Integer URLDownloadToFile In urlmon.Dll;
|
|
INTEGER pCaller, String szURL, String szFileName,;
|
|
INTEGER dwReserved, Integer lpfnCB
|
|
Declare Integer PathFileExists In shlwapi;
|
|
STRING pszPath
|
|
*!* trebuie adaugat security.h
|
|
|
|
*!* in caz ca da eroare encryptkey not found, trebuie scos din proiect iniacces.prg(din comun/programe) si adaugat / sau sterse fxp-urile
|
|
|