shellexecute(handle,'open',pchar('http://www.tecsoon.cn'),nil,nil,sw_show) 转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/23/1419978.html