[原创]简单的下载程序或页面

xingke

简单的下载程序或页面，入门级的。高手没必要看，让刚入门的朋友慢慢来提高。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function xingkedownload(Caller: cardinal; URL: PChar; FileName: PChar;Reserved: LongWord; StatusCB: cardinal):Longword; stdcall; external 'URLMON.DLL' name 'URLDownloadToFileA';
procedure TForm1.Button1Click(Sender: TObject);
begin
  xingkedownload(0,'http://sports.sina.com.cn/k/2007-11-03/15243268332.shtml', 'C:\xingke\两连胜火箭信心倍增.html', 0, 0);//这里是下载页面
  //xingkedownload(0,'所下载的文件地址', '所保存的文件地址', 0, 0);//这里是下载文件
end;

end.