如何用shellexecute打开一个网址

方法一  
  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);  
   
  我的程序需要根据传进来的参数打开网址,但是测试结果是方法一不成功,而方法二可以打开网页,谁可以解释一下为什么  
   
  问题点数：20、回复次数：2Top

1 楼ScoutKing（巴士司机）回复于 2002-11-29 13:24:58 得分 10

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

2 楼killlaoli（菜鸟）回复于 2002-11-29 13:25:41 得分 10

为什么要加@啊，去掉它  
  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;Top

相关问题

• strlink
• shellexecute
• nil
• shownormal
• 打开
• sw
• pchar
• 方法
• open

• 帖主：mypromise
• ScoutKing
• killlaoli

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载