Das ist relativ einfach.
Ein kleines Problem bei folgender Funktion ist, dass es während des Downloads keine Rückmeldung gibt;
dieser Weg ist also nur für kleinere Dateien sinnvoll.
Und natürlich funktionert das nur mit direkten Links, die keine weitere Buttonsklicks auf Skydrive erwarten.
Delphi-Quellcode:
uses ..., UrlMon;
function DownLoadInternetFile(const SourceUrl, DestFilename : String): Boolean;
const S_OK = 0;
begin
Result := URLDownloadToFile(nil,PChar(SourceUrl),PChar(DestFilename),0,nil) = S_OK;
// für Delphi XE ggf. die Funktion URLDownloadToFileW() verwenden
end;
procedure Test;
begin
if DownLoadInternetFile('https://skydrive.com/33452345/44543.doc', 'C:\temp\info.doc') then
ShowMessage('download ok');