用下面的代码可能更合适一些。
[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
ResultCode: Integer;
begin
if CurUninstallStep = usDone then
begin
if Is64BitInstallMode then
if MsgBox('是否同时删除MySQL数据库服务?' #13#13 '删除前请确认是否有别的应用程序在使用MySQL数据库存放数据!', mbConfirmation, MB_YESNO) = idYES then
Exec('msiexec.exe', '/x {56DA0CB5-ABD2-4318-BEAB-62FDBC9B12CC} /quiet /qn', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
end;