在Servermodule中加入过程 代码如下(示例): procedure OpenWeb(page: PChar); var Returnvalue: Integer; begin Returnvalue := ShellExecute(