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

Подскажите пожалуйста, как сделать деинсталлятор с выбором деинсталируемых компонентов. »

Интересный вопрос. Штатной такой особенности я не видел. Напишите на форуме разрабов инно - может добавят.
Я бы сделал такой деинсталлер как еще один инсталлер инно, который вытирал бы файлы и ключи реестра без добавления записей в секцию "установки программ".
Для затравки способ поубирать все ненужные окна (из коллекции скриптов в шапке темы)

Код:

Попробовать в разделе [Setup] выставить разные DisableProgramGroupPage=yes, DisableDirPage=yes, DisableFinishedPage=yes, DisableReadyPage=yes, DisableStartupPrompt=yes. Выбирай, что из этого нужно. 
Если надо, чтобы совсем без диалогов, щелкнул по сетапу и все, то: 

[Setup] 
AppName=My Program 
AppVerName=My Program 1.5 
DefaultDirName={pf}\My Program 
DisableDirPage=yes 
DisableProgramGroupPage=yes 
DisableReadyPage=yes 
DisableFinishedPage=yes 
OutputBaseFilename=setup 
Compression=lzma 
SolidCompression=yes 


[Files] 
Source: "C:\My Program\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs 

[_Code] 
procedure CurPageChanged(CurPageID: Integer); 
begin 
If CurPageID=wpWelcome then 
begin 
SendMessage(WizardForm.NEXTBUTTON.Handle, 513, 0, 0) 
SendMessage(WizardForm.NEXTBUTTON.Handle, 514, 0, 0) 
end; 
end;

В секцию [Setup] надо дописать Uninstallable=false - прожка не появится в секции "установка и удаление программ"

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

Что-то затихло здесь. Оживлю форум своим вопросом, может тупым, но этот вопрос для меня умный.
Вопрос: есть вот такой список компонентов:

Код:

Name: pl; Description: Плееры; Types: full;
Name: pl\kmp; Description: The KMPlayer 2.9.4.1437; Types: full recom
Name: pl\gom; Description: GOM Player 2.1.23.5007 Rus; Types: full
Name: pl\mpc; Description: Media Player Classic Home Cinema 1.3.1249.0; Types: full
Name: pl\mpc\mpcdxva; Description: Аппаратное ускорение воспроизведения h264 и VC-1; Flags: checkablealone dontinheritcheck
Name: pl\fl; Description: Зарегестрировать файлы на:; Types: full recom
Name: pl\fl\kmp; Description: The KMPlayer; Flags: exclusive; Types: full recom
Name: pl\fl\gom; Description: GOM Player; Flags: exclusive
Name: pl\fl\mpc; Description: Media Player Classic Home Cinema; Flags: exclusive

Список плееров для установки и на какой плеер регистрировать файлы. Как сделать так, чтобы при выборе к установке плеера MPC нельзя было зарегить файлы на GOM и KMP???

Еще вопросик - есть и облегченная версия этого дистра - без плееров. Каждый раз немного напрягает по всему коду вырезать руками Components: pl. Можно ли как то поставить условие в скрипте на облегченный дистр - IsLite=1 и все Components: pl не включались в итоговый лайт-дистр?

[moov1kk]

Помогите пожалуйста

[vint56]

moov1kk у тебя нет процессора вот скачай http://files.jrsoftware.org/ispack/ispack-5.3.10.exe при установки поставь галочки

[маркузяка]

я тут попробовал использовать вот этот скрипт


[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: compiler:Libraries\get_hw_caps.dll; Flags: dontcopy

[code]
function GetHardDriveFreeSpace(hdd: integer): Integer;
external 'hwc_GetHardDriveFreeSpace@files:get_hw_caps.dll stdcall';
function GetHardDriveName(hdd: integer): PChar;
external 'hwc_GetHardDriveName@files:get_hw_caps.dll stdcall';
function GetHardDriveTotalSpace(hdd: integer): Integer;
external 'hwc_GetHardDriveTotalSpace@files:get_hw_caps.dll stdcall';
function GetHardDrivesCount(): Integer; external 'hwc_GetHardDrivesCount@files:get_hw_caps.dll stdcall';

function InitializeSetup(): Boolean;
var
i, count: Integer;
msg: string;
begin
count:= GetHardDrivesCount();
msg:= 'Количество дисков: ' + IntToStr(count) + #13;
for i:= 0 to count - 1 do
msg:= msg + 'Размер: ' + GetHardDriveName(i) + ' - ' +
IntToStr(GetHardDriveTotalSpace(i)) + ' Мб' +
', своб.: ' + IntToStr(GetHardDriveFreeSpace(i)) + ' Мб' +#13;
MsgBox(msg, mbInformation, MB_OK);
end;

на версии от restools вылезела ошибка

почему и как исправить?

P.S. скрипт отсюда

[moov1kk]

vint56 большое спасибо

[alex2010]

маркузяка, ХЗ у меня робит:

[moov1kk]

Народ, простите за возможно тупой вопрос, но мне просто довольно лень лазить по 219 страницам форума
Мну нужен код для изменения положения кннопок далее, назад и т.д. и строки где указываеться путь установки, заранее благодарю...

[Habetdin]

маркузяка, замените PChar на PAnsiChar:

Код:

[Code]
function GetHardDriveFreeSpace(hdd: integer): Integer;
  external 'hwc_GetHardDriveFreeSpace@files:get_hw_caps.dll stdcall';
function GetHardDriveName(hdd: integer): PAnsiChar;
  external 'hwc_GetHardDriveName@files:get_hw_caps.dll stdcall';
function GetHardDriveTotalSpace(hdd: integer): Integer;
  external 'hwc_GetHardDriveTotalSpace@files:get_hw_caps.dll stdcall';
function GetHardDrivesCount(): Integer; external 'hwc_GetHardDrivesCount@files:get_hw_caps.dll stdcall';

function InitializeSetup(): Boolean;
var
  i, count: Integer;
  msg: string;
begin
  count:= GetHardDrivesCount();
  msg:= 'Количество дисков: ' + IntToStr(count) + #13;
  for i:= 0 to count - 1 do
    msg:= msg + 'Размер: ' + GetHardDriveName(i) + ' - ' +
      IntToStr(GetHardDriveTotalSpace(i)) + ' Мб' +
         ', своб.: ' + IntToStr(GetHardDriveFreeSpace(i)) + ' Мб' +#13;
  MsgBox(msg, mbInformation, MB_OK);
end;

у меня робит »

У вас ansi-версия компилятора

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

народ, а мне кто нить подскажет?