ShellExecute( 0,'open',pStr,nil, nil,SW_SHOWMAXIMIZED );
其中sStr为你要打开的HTML文件,类型为PChar

解决方案 »

  1.   

    uses ShellAPI;ShellExecute(0,'open','c:\test\index.htm',nil,nil,SW_SHOWMAXIMIZED );
      

  2.   

    很简单,调用一个API搞定。在uses中加上ShellAPI,调用如下:
    ShellExecute (handle, 'open', '要打开的网址',nil,nil, SW_SHOWNORMAL);ShellExcute 的 原 型 为: 
    Function ShellExecute( 
    hWnd: HWND; //文件句柄 
    Operation, //指向一个字符串,该字符串的内容为可执行的特定操作。可用的字符串     “Open”和 
    “Print” 用来打开和打印特定的文件。 
    FileName, //指向文件名的字符串 
    Parameters, //指向一个字符串,内容为可执行文件所带的参数。 
    Directory: //指向一个字符串,内容为可执行文件的缺省目录。 
    Pchar ShowCmd:Integer //应用程序以何种显示方式打开。 
    //如SW_SHOWNORMAL(一般方式)、SW_SHOWMINIZE(最小化)、SW_SHOWMAXIMIZE(最大化)。 
    ): HINST:stdcall;