[Devils Night]

народ как сделать такие компоненты? »

Читай справку!!! Не ужели так трудно пробежаться по справке? И читай внимательно тему с первой страницы, уже вроде был такой вопрос.

Код из справки

Код:

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.

[Components]
Name: "program"; Description: "Игра"; Types: full compact custom; Flags: fixed
Name: "help"; Description: "Помощь"; Types: full
Name: "Text"; Description: "Tехт"; Types: full
Name: "Text\en"; Description: "Aнглийский"; Flags: exclusive
Name: "Text\de"; Description: "Немецкий"; Flags: exclusive
Name: "Text\cn"; Description: "Китайский"; Flags: exclusive
Name: "Text\ru"; Description: "Русский"; Flags: exclusive
Name: "Voice"; Description: "Озвучка"; Types: full
Name: "Voice\en"; Description: "Английская"; Flags: checkablealone
Name: "Voice\de"; Description: "Немецкая"; Flags: checkablealone
Name: "Voice\ch"; Description: "Китайская"; Flags: checkablealone
Name: "Voice\ru"; Description: "Русская"; Flags: checkablealone
Name: "Voice\ru2"; Description: "Русская"; Flags: checkablealone
Name: "Voice\ru3"; Description: "Русская"; Flags: checkablealone

[Files]
Source: compiler:Dll Pack\descctrl.dll; Flags: dontcopy

 [ Code]
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external 'enabledesc@files:descctrl.dll stdcall';
function disabledesc(): BOOL; external 'disabledesc@files:descctrl.dll stdcall';

var
  Info: TNewStaticText;
  InfoCaption: TNewStaticText;
  InfoPanel: TPanel;

procedure DeinitializeSetup();
begin
  disabledesc();
end;

procedure InitializeWizard();
begin

  WizardForm.TYPESCOMBO.Visible:= false;
  WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
  WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
  WizardForm.ComponentsList.Width := ScaleX(200);

  InfoPanel := TPanel.Create(WizardForm);
  InfoPanel.Parent := WizardForm.SelectComponentsPage;
  InfoPanel.Caption := '';
  InfoPanel.Top := WizardForm.ComponentsList.Top;
  InfoPanel.Left := ScaleX(216);
  InfoPanel.Width := ScaleX(200);
  InfoPanel.Height := WizardForm.ComponentsList.Height;
  InfoPanel.BevelInner := bvRaised;
  InfoPanel.BevelOuter := bvLowered;
  InfoCaption := TNewStaticText.Create(WizardForm);
  InfoCaption.Parent := WizardForm.SelectComponentsPage;
  InfoCaption.Caption := 'Информация:';
  InfoCaption.Left := ScaleX(224);
  InfoCaption.Top := InfoPanel.Top - ScaleY(5);
  InfoCaption.Font.Color := clActiveCaption;
  Info := TNewStaticText.Create(WizardForm);
  Info.Parent := InfoPanel;
  Info.AutoSize := False;
  Info.Left := ScaleX(6);
  Info.Width := ScaleX(188);
  Info.Top := ScaleY(12);
  Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
  Info.Caption := 'Наведите на компонент, чтобы получить дополнительную информацию';
  Info.WordWrap := true;
  enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
       'Короткое описание игры;'+
       'Дополнительная документация, на разных языках;'+
       'Техт игры;'+
       'Официальный английский текст от EA Games;'+
       'Официальный немецкий текст от неизвестного производителя;'+
       'Пиратский китайский текст;'+
       'Официальный русский текст от софтклаб;'+
       'Озвучка игры;'+
       'Официальная английская озвучка от EA Games;'+
       'Официальная немецкая озвучка от неизвестного производителя;'+
       'Пиратская китайская озвучка;'+
       'Официальная русская озвучка от софтклаб;'+
       'Русская озвучка от 7Wolf;'+
       'Русская озвучка от фаргуса;'
       );
end;

но нужно обновлять архиваторы. Данный архив упакован 7-zip 9.25 alpha »

У меня установлен 9.20, и все прекрасно распаковывает.