在 uses 单元加入 Shellapi 引用，然后应用以下语句(函数)：
    打开 IE：ShellExecute(Handle,‘open’,‘http://www……’, nil, nil, SW_SHOWNORMAL);
    打开 IE：ShellExecute(Handle,‘open’,‘mailto:who@mail.addr?subject=…&body=…’,nil,nil,SW_SHOWNORMAL);
    如果以上函数的返回值小于或等于 32，则表明发生网络错误。