Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Public Sub DisplayDownloadBox(ByVal sPath As String)
    Call DoFileDownload(StrConv(sPath, vbUnicode))
End Sub

'APPEL  :
Call DisplayDownloadBox("http://www.vbfrance.com/g/v9logo/logovb.gif")

Uses ComObj;//  indispensable 
Function  DoFileDownloadEx(lpszFile: LPCWSTR; Save: Bool):Cardinal; Stdcall; External  'shdocvw.dll' name 'DoFileDownloadEx'; 
Implementation 
Procedure  DownloadThisFileAnd(Const aUrl:  String; Const  Save: Boolean = True); 
Var  
  pwcUrl: PWideChar; 
Begin  
  GetMem(pwcUrl, 2048);  
  StringToWideChar(aUrl, pwcUrl, 2048);  
  DoFileDownloadEx(pwcUrl, Save); 
  FreeMem(pwcUrl); 
End; 

//Utilisation 
Procedure  TForm1.Button1Click(Sender: TObject); 
Var  
  sUrl: String; 
Begin 
  sUrl := 'http://www.delphifr.com/g/v9logo/logodel.gif';  
  DownloadThisFileAnd(sUrl);// propose de  l'enregistrer 
  //DownloadThisFileAnd(sUrl, False);// le télécharge et  l'ouvre 
End; 

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile() As Int16) As Integer
Public Sub DisplayDownloadBox(ByVal sPath As String)
    Dim abUnicode(sPath.Length) As Int16
    For i As Integer = 0 To sPath.Length - 1
        abUnicode(i) = Microsoft.VisualBasic.Strings.AscW(sPath.Substring(i,  1))
    Next i
    Call DoFileDownload(abUnicode)
    Erase abUnicode
End Sub

    ' passer par  ASCW est apparemment la seule manière pour traiter l'unicode.
    ' différents tests effectués avec System.Text.Encoding (ascii,  unicode, utf-16, utf-32, etc...)
    ' affiche  alors une alerte  : "Les paramètres de sécurité actuels ne vous permettent pas  de télécharger ce fichier."