Question

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

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

Answer 1

uses shellapi;

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