1,183
社区成员




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;