如何在delphi中 使用messagebox点击确定后弹出网页

来源:百度知道 编辑:UC知道 时间:2024/06/07 09:55:28
如何在delphi中 使用messagebox点击确定后弹出网页 代码如何写

uses shellapi;

if messagebox(handle,'点击确定打开网站','提示',MB_OKCANCEL) = mrok then
shellexecute(handle,'open','www.baidu.com',nil,nil,sw_shownormal);