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 如何判断可见字符 unicode

Delphi获取u盘序列号的代码

Delphi 获取汉字拼音首字母

Delphi 一行一行读取txt文件

Delphi webbrowser的关于流载入流保存和流生成

Delphi xe 中使用正则表达式

Delphi 在窗体上创建自己的光标并输入文字

Delphi xe2 - 点点滴滴

Delphi在目录中搜索文件

Delphi idhttp的基本用法

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

转载请注明出处：木庄网络博客 » Delphi 下载并运行的代码