[R.i.m.s.k.y.]

1. При запуске инсталлятора сначала, выдавалось такое окно "Для продолжения установки, убедитесь в том что устройство не подключено! Для продолжения нажмите ОК". »

Код:

Function InitializeSetup: Boolean;
begin
...
if MsgBox('Для продолжения установки, убедитесь в том что устройство не подключено! Для продолжения нажмите ОК', mbError, MB_YESNO) = idYes then result := true else result := false;
...
end;

2. При удалении сначала, выдавалось такое окно "Для продолжения деинсталляции, отключите устроиство! Для продолжения нажмите ОК". »

Код:

function InitializeUninstall(): Boolean;
begin
...
if MsgBox('Для продолжения деинсталляции, отключите устроиство! Для продолжения нажмите ОК', mbError, MB_YESNO) = idYes then result := true else result := false;
...
end;