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

Question

在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;

Answer 1

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