用默认浏览器打开某个网页的ShellExecute()该怎么写啊？

Question

ShellExecute(Handle,nil,'yours url',nil,nil,SW_SHOWNORMAL);

Answer 1

还要别忘记在USES中添加SHELLAPI

Answer 2

procedure TForm1.DBText10Click(Sender: TObject);
begin
  ShellExecute(Handle,nil,'http://www.abc.com',nil,nil,SW_SHOWNORMAL);
end;
我这样写，点击后都没见有反应啊？

Answer 3

ShellExecute(Handle,pchar('open'),'http://www.abc.com',nil,nil,SW_SHOWNORMAL);

Answer 4

ShellExecute(handle,nil,pchar('http://www.123.com'),nil,nil,sw_shownormal);

Answer 5

又晚了.....
ShellExecute(handle,nil,pchar('http://www.sina.com.cn'),nil,nil,sw_shownormal); 

Answer 6

faint，难怪我说为什么我这样写不行呢，原来是我自己的系统有点问题，谢谢大家了