[Yury_Prizrak]

Всем привет. Возник вопрос - как завершить установку и откатить изменения при определенных условиях? Все условия я запрограммировал. Прверяются они при нажатии определенной кнопки далее:

Код:

//Функция проверки наличия Meneger при установленном сервисе
function NextButtonClick(CurPageID: Integer): Boolean;
var
AppPath, AppValue: string;
begin
	if not Installed then
	begin
		if (not (CurPageID = ServicePage.ID)) then
		begin
		    Result := True;
		    Exit;
		end;
		
		if ServiceCheck then
		begin	
			AppPath := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Control_is1,InstallLocation|}'));
			if not FileExists(AppPath + '\Manager.exe') then
			begin
				MsgBox('Не найден Manager!', mbInformation, mb_Ok)
				\\что написать сдесь чтобы начось завершение инсталляции и откат изменений???	
			end;
                        Result := True;	
		end;
    end
    else
    begin
    Result := True;
    end;
end;

И еще вопрос - работаю с xml документом:

Код:

	// пользовательские настройки
	XMLNode := XMLDoc.selectSingleNode('//aaa');
	if not VarIsEmpty(XMLNode) then
	begin
		XMLAttributes := XMLNode.attributes;
		//  Код bbb
		XMLAttrib := XMLAttributes.getNamedItem('bbb');
		XMLAttrib.text := bbb;

Как сначала проверить наличие атрибута 'bbb'