delphi 下载并运行的代码
uses UrlMon;
{ --------下载并运行 -----------}
procedure DownloadExec(lpUrl: PChar);
var
sUrl, sFile : string;
begin
sUrl := lpUrl;
sFile := FormatDateTime('yyyyMMddhhmmss.', now) + copy(sUrl,
Length(sUrl) - 2, Length(sUrl));
UrlDownloadToFile(nil, PChar(sUrl), PChar(sFile), 0, nil);
ShellExecute(0, nil, PChar(sFile), nil, PChar(GetCurrentDir), SW_SHOW);
ExitThread(0);
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.034554958343506 seconds