Скрипты Inno Setup. Помощь и советы [часть 4]

[Gnom_aka_Lexander]

Цитата Tixo:



народ а кто поможет прикрутить эти компоненты, к этому скрипту

http://rghost.ru/27770621

Скрипты Inno Setup. Помощь и советы [часть 4]

Лови

[al1511]

Цитата LinkOFF:



И что нужно прописать в скрипте чтоб когда запускался setup.exe выводилось сообщение о том что такая программа уже есть и предлагалось удалить программу?

Скрипты Inno Setup. Помощь и советы [часть 4]

Как то так

[Stable19]

Цитата nik1967:



Как то так

Скрипты Inno Setup. Помощь и советы [часть 4]

А у меня архивчик не распаковался, сказал, что неверно упакован.



Скажите пожалуйста, можно как нить проверить окно "родилось" или нет?

Что то типа:



Код:

Код: Выделить всё

[_code]
var
    UnInstallPage: TWizardPage;
...
FUNCTION NextButtonClick(CurPageID: Integer): Boolean;
begin
  if UnInstallPage = null then begin
    MsgBox('Окошко не родилось.', mbConfirmation, mb_Ok);
  end else begin
    MsgBox('Окошко родилось.', mbConfirmation, mb_Ok);
  end;
end;

[by_gangster]

Цитата Gugle:



А у меня архивчик не распаковался, сказал, что неверно упакован.

Скрипты Inno Setup. Помощь и советы [часть 4]

Оффтоп конечно сие, но нужно обновлять архиваторы. Данный архив упакован 7-zip 9.25 alpha (2011-09-16).

[Gnom_aka_Lexander]

народ как сделать такие компоненты?(скрипт на 4 странице по-мойму)

http://fastpic.ru/view/30/2011/0905/...5caa8.jpg.html

[Stable19]

Serega, огромное спасибо, именно этот код мне и требовался. Последний вопрос: как привязать к каждой кнопке установку той или иной папки? Я так понял, в секции [Files] нужно пометить нужную директорию?

Ах да, можно еще каким-либо образом сделать так, чтобы при выборе одного типа установки в реестр добавлялись одни ключи, а при другом типе - другие ключи?

[YURSHAT]

Цитата Tixo:



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

Скрипты Inno Setup. Помощь и советы [часть 4]

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

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

Код:

Код: Выделить всё

[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;

Цитата nik1967:



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

Скрипты Inno Setup. Помощь и советы [часть 4]

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

[by_gangster]

Ivan_009, если ты про скин то вот

http://forum.ru-board.com/topic.cgi?...&limit=1&m=8#1

[by_gangster]

Johny777, спс, а в Files его надо указывать??

Johny777, показвается только стандарт, а мне надо что бы мой курсор показывался

[Iska]

Здравствуйте.Помогите мне пожалуйста сделать или дать скрипт на такой инсталлятор.