摘要:
UrlDownloadToFile是一个非常不错的函数,我们可以用它来下载各种格式的图片、音乐、文件等等。Uses URLMon, ShellApi; function DownloadFile(SourceFile, DestFile: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; end; procedure TForm1.Button1Click(Sen... 阅读全文