1,184
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
var
TargetURL :string;
SaveFileName :string;
begin
TargetURL :='http://www.google.com.tw/logos/olympics10-shorttrack-hp.png';
SaveFileName :='C:\test.jpg';
if URLDownloadToFile(nil,
PChar(TargetURL),
PChar(SaveFileName),
0, nil) = S_OK then
ShowMessage('成功')
else
ShowMessage('失敗');
end;