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;

相关阅读 >>

Delphi整理二（object pascal语言）

Delphi webbrowser控件实现对ie浏览器的各种控制

Delphi sccoloredid，星际争霸彩色 id 修改器 v0.2.0，支持 windows vista

pe结构详细图

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi access存储过程是带参数的查询语句

Delphi编写iis过滤器实例

Delphi的tfilestream

Delphi dbgrideh 的分组统计 datagrouping

Delphi 拷贝edit编辑框中的内容

更多相关阅读请进入《Delphi》频道 >>