请问按一个按钮就打开一个html文件如何做

Question

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

Answer 1

我提供另外的一种方法。因为我比较反感Tencent的做法。。总是用他的TE打开。烦。。
var
IE : Variant;  WinHanlde : HWnd;begin  if (VarIsEmpty(IE) ) then  begin    IE := CreateOleObject('InternetExplorer.Application');    IE.Visible := true;    IE.Navigate('http://www.csdn.net');  end  else  begin    WinHanlde := FindWIndow('IEFrame', nil);    if (0 <> WinHanlde) then    begin     IE.Navigate('http://www.csdn.net');     SetForegroundWindow(WinHanlde);    end    else     ShowMessage('Can''t open IE !');  end;
end;

Answer 2

以上两位意见都是正确的，但是不明白：“因为我比较反感Tencent的做法。。总是用他的TE打开。烦。。”，什么意思

Answer 3

如果采用最上面的兄弟的作法，而且又安了oicq，默认的浏览器就是Tencent的那破东西(不好意思，真的不好用)，就会用那东西打开URL，用我那种方法，就肯定会用IE打开URL，呵呵。。
我觉得OICQ最好把那东西去掉。画蛇添足........

Answer 4

to black_fox:
是否缺些什么的，提示“[Error] check.pas(328): Undeclared identifier: 'CreateOleObject'”

Answer 5

ShellExecute(nil,nil, 'http://地址',nil, nil, SW_SHOWNORMAL);