Delphi 使用WinInet 进行下载

WinInetDownLoad('http://下载地名','c:\本地文件名')

引用 

unit xHttpGetThread;

interface


const MAXBLOCKSIZE = 1024;
function WinInetDownLoad(Url:PChar; FileName:string):Boolean;
implementation
uses
  Windows, Classes, WinInet, SysUtils ;
function WinInetDownload(Url:PChar; FileName:string):Boolean;
var
  hSession : HINTERNET;
  hOpenUrl : HINTERNET;
  Temp     : array [0..MAXBLOCKSIZE-1] of Byte;
  dwRead   : DWORD;
  fs       : TFileStream;

  dwResult : DWORD;
begin
  Result := False;
  hSession := InternetOpen('RookIE/1.0', //指定调用 WinINet 函数的应用程序或入口。该入口用作HTTP协议中用户代理项。
                           INTERNET_OPEN_TYPE_PRECONFIG,//访问要求类型，该参数可为下列值之一：
                           {　　INTERNET_OPEN_TYPE_DIRECT 解析所有本地主机；
                            　　INTERNET_OPEN_TYPE_PRECONFIG 返回注册表中代理或直接的配置；
                            　　INTERNET_OP