如何用shellexecute打开一个网址

Question

方法一
procedure TForm1.Button1Click(Sender: TObject);
var strlink: string;
begin
  strLink := 'http://'+ '202.84.17.158';
  ShellExecute(0, 'open', pchar(@strLink), nil, nil, SW_SHOWNORMAL);
end;
方法二:
  ShellExecute(0, 'open', 'http://202.84.17.158', nil, nil,SW_SHOWNORMAL);我的程序需要根据传进来的参数打开网址,但是测试结果是方法一不成功,而方法二可以打开网页,谁可以解释一下为什么

Answer 1

ShellExecute(handle, 'open', pchar(strLink), nil, nil, SW_SHOWNORMAL);

Answer 2

为什么要加@啊，去掉它
procedure TForm1.Button1Click(Sender: TObject);
var strlink: string;
begin
  strLink := 'http://'+ '202.84.17.158';
  ShellExecute(0, 'open', pchar(strLink), nil, nil, SW_SHOWNORMAL);
end;