delphi 打开网址链接

本文整理自网络，侵删。

 
单元文件：ShellApi
 
OpenUrlWithDefBrowser('http://www.baidu.com');
procedure OpenUrlWithDefBrowser(url: string);
begin
  try ShellExecute(0, 'open', PChar(url), nil, nil, SW_SHOWNORMAL);
  except
    on E: Exception do begin
      Showmessage('ERROR in upddate progress: ' + E.Message + ' Please, try manual download ' + url + ' ');
    end;
  end;
end;
 
 

相关阅读 >>

Delphi 拷贝edit编辑框中的内容

Delphi winapi: setwindowtext - 设置窗口标题

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi datetimepicker控件日期格式

Delphi 文件大小 显示k kb mb gb tb

Delphi xe 横屏竖屏的管理

Delphi压缩库 zlibex 介绍

Delphi直接实现分享图片功能

Delphi fmx 获取系统版本 android ios通用

Delphi memo1 字符串快速查找定位2

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

转载请注明出处：木庄网络博客 » delphi 打开网址链接