TÉLÉCHARGEMENT DE FICHIER VIA ISXDL.DLL

'isxdl.dll : DLL permettant de télécharger des fichiers sur le web (ou réseau local?! => pas testé)
'La DLL provient de ISTool , logiciel gratuit servant (avec Inno Setup, gratuit) à faire des programmes d'installation professionnels entièrement paramétrable
'www.istool.org
'www.innosetup.com
'
'source déposée sur www.vbfrance.com par Tioneb
'allez voir le tuto de Zlub pour voir comment fonctionne inno setup
'http://www.vbfrance.com/tutorial.aspx?ID=238
'
'
'télécharge directement un fichier, URL c'est ce qu'il DL et filename c'est le chemin complet où il faut le mettre
'retourne 1 si fichier DL sinon 0
Public Declare Function isxdl_Download Lib "isxdl_fr.dll" (ByVal ihWnd As Long, ByVal strURL As String, ByVal strFilename As String) As Integer

'ajoute un fichier dans la liste de ce qu'il faudra DL
Public Declare Function isxdl_AddFile Lib "isxdl_fr.dll" (ByVal strURL As String, ByVal strFilename As String)

'comme ci-dessus mais en ajoutant la taille du fichier (faut qu'elle soit juste) => je trouve que ça sert à rien!
Public Declare Function isxdl_AddFileSize Lib "isxdl_fr.dll" (ByVal strURL As String, ByVal strFilename As String, ByVal lngSize As Long)

'télécharge tous les fichiers de la liste actuelle
'retourne 1 si tout les fichiers sont DL, sinon 0
Public Declare Function isxdl_DownloadFiles Lib "isxdl_fr.dll" (ByVal ihWnd As Long) As Integer

'efface le contenu de la liste en cours
Public Declare Sub isxdl_ClearFiles Lib "isxdl_fr.dll" ()

'teste si une connexion internet est présente; retourne 1 si oui, sinon 0
Public Declare Function isxdl_IsConnected Lib "isxdl_fr.dll" () As Integer

'Paramètre les options
'Avec pour options:
'
'title = titre de la fenêtre
'simple = fenêtre de téléchargement simple si valeur n'est pas vide (dans ce cas elle sera inscrite dans la fenêtre)
'label = Texte de la première ligne (celle en gras)
'description = celle qui est juste en dessous!
'language = permet de spécifier un fichier de langage (marche pas chez moi)
'resume = permet d'utiliser le "resume"! (marche pas chez moi)
'smallwizardimage = permet de spécifier un fichier (chemin complet) image différent (vérifier si c'est à la bonne taille!)
'
'retourne 1 si l'option est bien prise en compte, et 0 si l'option est inconnue ou si elle n'a pas pu être affectée
Public Declare Function isxdl_SetOption Lib "isxdl_fr.dll" (ByVal strOption As String, ByVal strValue As String) As Integer

'retourne le véritable nom d'un téléchargement (utile quand le liens pour DL un fichier pointe vers une page qui lance le DL)
Public Declare Function isxdl_GetFileName Lib "isxdl_fr.dll" (ByVal strRL As String) As String