使用Innosetup删除快捷方式和关联文件

[Code]
function DeleteShortcutsAndAssociations: Boolean;
var
  ResultCode: Integer;
begin
  // 删除快捷方式
  DeleteFile(ExpandConstant('{commondesktop}\MyApp.lnk'));
  DeleteFile(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\MyApp.lnk'));

  // 删除文件关联
  ResultCode := ShellExec('', 'rundll32.exe', 'shell32.dll,Control_RunDLL appwiz.cpl,,2', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);
  if ResultCode <> 0 then
  begin
    MsgBox('Unable to delete file associations.', mbError, MB_OK);
    Result := False;
  end
    else
  begin
    Result := True;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    if not DeleteShortcutsAndAssociations then
    begin
      Abort;
    end;
  end;
end;