VPF::Ошибка в ServiceApplication - Форум программистов

zezik

Дата 11.3.2008, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 11.3.2008

Репутация: нет
Всего: нет

Две ошибки возникающие при попытке удаления не существующего сервиса, или установке уже установленного сервиса.

Пример возниковения ошибки повторной установки:

Код


procedure TSetviceApplication.ServiceBeforeInstall(Sender: TService);
var j: integer;
    s: String;
begin
  RegOpenKey(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\TestService', key);

    if (key = ERROR_SUCCESS) then       
        begin
         .
         .
           repeat                     
              case Form2.ShowModal of
               mrYes: begin inc(j); unit2.dalee(j);  end;
               mrNo:  begin dec(j); unit2.nazad(j);  end;
               mrCancel:  begin    Form2.Free;        halt(0);    end;
              end;
           until  Form2.ModalResult = mrOk ;
         end
         end
 else

 begin
   if MessageDlg('Данная программа уже существует. Хотите ее удалить?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
         s := GetRegStringValue('SYSTEM\CurrentControlSet\Services\TestService', 'ImagePath',HKEY_LOCAL_MACHINE);
         OpenProgram(s, '/uninstall');
              halt(0);  
         end
       else
               halt(0);
 end;

halt(0) не дает отображать эти ошибки, но это не корректно и надо найти корректный способ.

И еще один вопрос не вылезая из этого же фрагмента кода, тоже про корректность.

Это фрагмент перехода по форме самопального установщика:

Код


    .
    .
    .
           repeat                     
              case Form2.ShowModal of
               mrYes: begin inc(j); unit2.dalee(j);  end;
               mrNo:  begin dec(j); unit2.nazad(j);  end;
               mrCancel:  begin    Form2.Free;       halt(0);    end;
              end;
           until  Form2.ModalResult = mrOk ;
         end
    .
    .
    .

halt(0) предназначен для выхода из формы установки сервиса по нажатию кнопки "Отмена". Но опять же это не корректно. У Application есть метод Terminate, есть ли то же самое только для ServiceApplication?

Заранее спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »