【已解决】关于卸载完成后打开网址的细节问题 [复制链接]

以下部分代码是本论坛搜索到的，用这个代码卸载程序后可以打开网址，但有个问题是，他在卸载还未退出程序就打开了，我想问的是能不能在卸载完成单击“确定”按钮之后再打开此网址？请大伙给个说法。谢谢。
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
ErrorCode: Integer;
begin
case CurUninstallStep of
    usUninstall:
      begin // 开始卸载
      end;
    usPostUninstall:
      begin      // 卸载完成
        ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
      end;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
ErrorCode: Integer;
begin
case CurUninstallStep of
    usUninstall:
      begin // 开始卸载
      end;
    usDone:
      begin      // 卸载完成
        ShellExec('open', 'http://www.baidu.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
      end;
end;
end;

gnatix:procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);varErrorCode: Integer;begincase CurUninstallStep of....... (2012-01-08 05:29) 

多谢老虎版主的解答，已经完美解决问题。

procedure DeinitializeUninstall ();
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://www.abbeydawn.com.cn', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

提示一下：
楼上的代码的缺点是：即使用户选择不继续卸载（就是在弹出“你是否真的要卸载”的窗口时选择“否”）也是会执行。
而一楼的代码则只是在卸载真的完成后才执行。

感谢提醒！