打开网址的方法

参考链接：http://blog.csdn.net/zhongguoren666/article/details/6904535

代码如下：

procedure TForm3.F1Click(Sender: TObject);
var
MyUrlF:string;
begin
//获取当前记录的urlf值
MyUrlF:=frmDataPool.qry前后台用户统计.FieldByName('网址F').AsWideString;
//打开网址F 前后台用户统计
ShellExecute(Application.Handle, 'open','Iexplore.exe', PChar(MyUrlF),'about:blank', SW_SHOWNORMAL);
end;

注意：网址变量的写法，要用PCHAR转换；

转载于:https://www.cnblogs.com/ddxxxb/p/7085895.html