调用浏览器，显示我当前目录中的一个HTML文件？

[yhneo]

怎么做？

[shuyi]

用WebBrowser 控件

[cattor]

在form1中加一个WebBrowser控件，可在其中显示html文档


Form1.WebBrowser1.Navigate(GetDir('\file.htm'));

function getdir(filename:string):string;
var
cdir:string;

begin
setlength(cdir,144);
if getcurrentdirectory(144,pchar(cdir))<>0 then
begin
setlength(cdir,strlen(pchar(cdir)));
result:=cdir+filename;
end
else
raiselastwin32error;
end;

[kevin_gao]

用默认的浏览器打开一个文件
ShellExecute(Handle, 'open', 'c:\test.html', nil, nil, SW_SHOWNORMAL);