Sergey_Demchuk Вот накидал для твоего случая, должно сработать:
[more=Код][Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Components]
;Check: c; -компоненты будут показаны только если программа установлена.
Name: news; Description: Обновить; Check: c;
Name: dels; Description: Удалить; Check: c;
[Code]
function c: Boolean;
begin
//проверяем наличие программы
if RegValueExists(HKLM, 'ключ', 'значение') then // ищем в реестре наличие программы
//проверяем наличие компонента
if FileExists('характерный для компонента файл в папке с программой') then Result:=True;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then //перед установкой
//function IsComponentSelected(const Components: String): Boolean;
if IsComponentSelected('dels') then begin //если выбран компонент dels
// function DeleteFile(const FileName: string): Boolean;
DeleteFile('файл1 который нужно удалить, прописывать нужно кождый файл отдельно')
DeleteFile('файл2 который нужно удалить, прописывать нужно кождый файл отдельно')
DeleteFile('файл3 который нужно удалить, прописывать нужно кождый файл отдельно')
end;
// если есть еще какойто код в процедуре CurStepChanged, то писать его здесь
end;
[/more]
CAHEK77, не любо, как говорится, не кушай, добивать его не стал, поскольку другая мысль пришла в голову и вертикальная панель стала неактуальной, выдрать ее - несложно.
Цитата: инстал какой то "кривой"
Никто не мешает тебе прямой написать.
