• Русская справка в формате .chm к версии 5.4.3, авторы перевода BagIra, bugron;
  
• Русская справка в формате .hlp к версии 5.0.4, автор перевода BagIra | cкачать в .chm формате;
  
• Inno Setup Extensions Knowledge Base - онлайн справочник, содержит ответы на многие вопросы | старая chm-версия;
  
• Inno Setup Scripting 5.1 - руководство по расширенным возможностям Inno Setup от Kindly;
  
• Коллекция скриптов | Сборник вопросов;
  
• Сборник скриптов в формате .chm от Krinkels;
  
• Готовые решения с сайта innoultra.ru;
  
• Cборник скриптов и примеров с сайта krinkels.org;
  

• Компоненты основных страниц, (ссылка на сообщение);
• Бегущая строка - бегущая строка на WizardForm, (ссылка на сообщение);
• Эффект печатной машинки - текст на WizardForm появляется по одной букве, (ссылка на сообщение);
• Ultimate Test - проверка системных требований для инсталлятора с чёрным фоном, (ссылка на сообщение);
• Проверка системных требований - пример проверки системных требований без get_hw_caps.dll, (ссылка на сообщение);
• Картинка на страницах инсталлятора - пример скрипта, показывающий как растянуть стандартную картинку на всю страницу, (ссылка на сообщение);
• Наложение изображений на стандартные кнопки - пример, показывающий как использовать свои изображения на кнопках, (ссылка на сообщение);
• Выделение всех компонентов - пример показывает как выделить или снять отметки со всех компонентов одной кнопкой, (ссылка на сообщение);
• Свой шрифт в инсталляторе - пример скрипта для использования своего шрифта в инсталляторе, (ссылка на сообщение);
• Цвет прогресс-бара - пример скрипта для замены цвета прогресс-бара на свой, (ссылка на сообщение);
• Создание кастомного прогресс-бара - имитация кастомного прогресс-бара, (ссылка на сообщение);
• Создание кастомного чекбокса - пример скрипта для создания своего чекбокса, всего 12 состояний, (ссылка на сообщение);
• Видео на фоновом окне - пример скрипта для воспроизведения стандартного avi-файла на фоновом окне инсталлятора, (ссылка на сообщение);
• Need for Speed™ Undercover.iss v 2.2 - пример скрипта для игры Need for Speed+FreeArc, одним словом название говорит само за себя, (ссылка на сообщение);
• Запрет установки в корень системного диска, (ссылка на сообщение);
• Автовыбор диска установки - определяет логические диски на компьютере и предлагает установить на первый логический диск не являющийся системным, (ссылка на сообщение);
• Распаковка архивов FreeArc - новая версия скриптов для распаковки архивов FreeArc, (ссылка на сообщение);
• Стандартные папки Windows - пример скрипта, позволяющий получить путь к стандартным папкам Windows, (ссылка на сообщение);
• ExecAndWait.iss - скрипт, который позволяет запускать другие программы с ожиданием их завершения и при этом инсталлятор остаётся "живым", т.е. отвечает на действия пользователя, (ссылка на сообщение);
• Проверка наличия .NET Framework - пример проверки и загрузки в случае отсутствия .NET Framework'a, (ссылка на сообщение);
• MsiQueryProductState.iss - пример скрипта для проверки установки программы, установленной с помощью Windows Installer, (ссылка на сообщение);
• Определение информации о версии файла - пример скрипта для определения информации о версии файла, которую можно посмотреть в свойствах файла на вкладке Версия, (ссылка на сообщение);
• Поиск файла по маске, (ссылка на сообщение);
• Спрятать окно инсталлятора - спрятать окно инсталлятора без использования параметров командной строки /SILENT, /VERYSILENT, (ссылка на сообщение);
• Окно инсталлятора поверх всех остальных - окно инсталлятора поверх всех остальных, (ссылка на сообщение);
• Замена меню "О программе" - пример скрипта для замены текста меню "О программе", (ссылка на сообщение);
• Отключить сообщение о нехватке места на HDD - пример скрипта для отключения сообщения о нехватке места на HDD. С небольшими изменениями может использоваться для отключения и других сообщений, вызванных внутренними обработчиками Inno, (ссылка на сообщение);
• Отображение размера устанавливаемого файла - пример скрипта для приведения размера устанавливаемого файла из байтовой формы в удобочитаемую (вариант №1) и отображения на втором прогрессбаре, (ссылка на сообщение);
• Перевод размера файла в удобочитаемую форму - пример скрипта для приведения размера файла из байтовой формы в удобочитаемую (вариант №2), (ссылка на сообщение);
• ConvertString.iss - пример скрипта для конвертирование строк в различные кодировки, (ссылка на сообщение);
• Работа с XML - архив с скриптами для работы с xml-документами, (ссылка на сообщение);
• SetRestorePoint.iss - пример скрипта для создания контрольной точки перед установкой, (ссылка на сообщение);
• Определение локального IP-адреса (WMI) - пример скрипта для определения локальных IPv4, IPv6-адресов машины (используется WMI), (ссылка на сообщение);
• Определение внешнего IP-адреса - пример скрипта для определения внешнего IP-адреса машины, на которой запущен инсталлятор (необходимо соединение с интернетом), (ссылка на сообщение);
• IsInternetActive.iss - пример скрипта для определения подключения машины к Интернет, (ссылка на сообщение);
• Запущен ли процесс (WMI) - пример скрипта для определения запущен ли определенный процесс в системе, используя WMI, (ссылка на сообщение);
• Запущен ли процесс - пример скрипта для определения запущен ли определенный процесс в системе, (ссылка на сообщение);
• Закрепить ярлык на панели задач в Windows 7 (вариант №1) - пример закрепления ярлыка приложения на панели задач в Windows 7, (ссылка на сообщение);
• Закрепить ярлык на панели задач в Windows 7 (вариант №2) - пример закрепления ярлыка приложения на панели задач в Windows 7, (ссылка на сообщение);
• Установка гаджета в Windows 7 - пример установки гаджета в Windows 7 (требуется юникодная версия Inno), (ссылка на сообщение);
• Установка драйвера устройства - пример скрипта для установки legacy- и WDM- (требуется утилита devcon.exe) драйверов устройств, (ссылка на сообщение);
  

• ISTool - неплохой редактор скриптов Inno Setup.
  Последняя версия: 5.3.0.1 [29.09.2009] - Скачать | зеркало;
  
  
• Inno Script Generator - генератор скриптов Inno Setup. Обладает некоторыми полезными функциями, которых нет ни у самого Inno Setup, ни у ISTool.
  Последняя версия: 1.0.3.1 [23.03.2008] - Скачать | зеркало на русифицированную программу;
  Примечание: Родной сайт www.hisoft2000.de более недоступен, поэтому здесь расположены сторонние ссылки.
  
  
• Inno Setup Form Designer - редактор страниц Inno Setup, можно создавать свои страницы.
  Последняя версия: 2.0.8 [12.11.2006] - Скачать;
  Примечание: Родной сайт http://isfd.kaju74.de/index.php?isfd более недоступен, поэтому здесь расположены сторонние ссылки.
  
  
• Inno Setup GameScript Generator - программа генерирует скрипты для Inno Setup . С помощью GameScript Generator и Inno Setup вы сможете быстро создать простенький инсталляционный пакет для любой игры. В инсталлятор можно встроить музыку, слайдшоу и фоновый рисунок. Для специалистов созданный скрипт, возможно, будет неплохой заготовкой для дальнейшей модернизации;
  
  
• ISSkin - Программа для создания и добавления в инсталлятор скинов. Инструкция.
  Последняя версия: 3.0.0.0 [19.01.2010] - Скачать;
  
  
• ISSJoiner - Программа для объединения нескольких скриптов InnoSetup в один.
  Последняя версия: 3.0 [23.07.2009]
  
  
• Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup).
  Последняя версия: 0.1.4 [13.03.2010] - Скачать;
  

---

function StrRStrI(pszSource, pszLast, pszSrch: PChar): PChar; external 'StrRStrIA@shlwapi.dll stdcall';

//
function LastPos(SubStr, S: String): Integer;
begin
    Result := Length(S) - Length(StrRStrI(S, '', SubStr)) + 1;
    if Result = Length(S) + 1 then Result := 0;
end;

procedure InitializeWizard();
var
    i: integer;
begin
    i := LastPos('hf', 'rttrhf657hf6544');
end;

---

---

[_Code]
function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';

const
  WM_SYSCOMMAND = $0112;

var
  CaptionPanel:Tpanel;
  MinimizeBtn,CloseBtn:TButton;

procedure MinimizeBtnClick(Sender:TObject);
begin
  SendMessage(WizardForm.Handle,WM_SYSCOMMAND,61472,0);
end;

procedure CloseBtnClick(Sender:TObject);
begin
  WizardForm.Close;
end;

procedure LabelOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture
  SendMessage(WizardForm.Handle, WM_SYSCOMMAND, $F012, 0)
end;

procedure InitializeWizard;
var
  d:integer;
begin
CaptionPanel:=TPanel.Create(WizardForm);
  with CaptionPanel do begin
    Parent:=WizardForm;
    Height:=22;
    Width:=WizardForm.Width;
    Align:=alTop;
    ParentColor:=True;
    Color:=$000000;
    BevelInner:=bvNone;
    BevelOuter:=bvNone;
  end;

  with TLabel.Create(CaptionPanel) do begin
    Parent:=CaptionPanel;
    Transparent:=True;
    Autosize:=False;
    Top:=0;
    Left:=0;
    Width:=CaptionPanel.Width;
    Height:=CaptionPanel.Height;
    OnMouseDown:=@LabelOnMouseDown;
  end;

  CloseBtn:=TButton.Create(CaptionPanel);
  with CloseBtn do begin
    Parent:=CaptionPanel;
    Height:=20;
    Width:=20;
    Top:=(CaptionPanel.Height-Height) div 2;
    Left:=CaptionPanel.Width-Width-d;
    Font.Name:='Arial'
    Caption:='X';
    OnClick:=@CloseBtnClick;
  end;

  MinimizeBtn:=TButton.Create(CaptionPanel);
  with MinimizeBtn do begin
    Parent:=CaptionPanel;
    Height:=20;
    Width:=20;
    Top:=(CaptionPanel.Height-Height) div 2;
    Left:=CaptionPanel.Width-Width-CloseBtn.Width-d-2;
    Font.Name:='Arial'
    Caption:='_';
    OnClick:=@MinimizeBtnClick;
  end;
end;

---

[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
english.ComponentsName1=My program™
russian.ComponentsName1=Моя программа™
english.ComponentsName1_1=English version
russian.ComponentsName1_1=Английская версия
english.ComponentsName1_2=Russian version
russian.ComponentsName1_2=Русская версия
english.ComponentsName2=Help
russian.ComponentsName2=Помощь
english.ComponentsName2_1=Documentation
russian.ComponentsName2_1=Документация
english.ComponentsName2_2=User manual
russian.ComponentsName2_2=Руководство пользователя
english.ComponentsInfoPanel1=Description
russian.ComponentsInfoPanel1=Описание
english.ComponentsInfoPanel2=Direct the cursor a mouse on component to read his description.
russian.ComponentsInfoPanel2=Наведите курсор мыши на компонент, чтобы прочитать его описание.
english.ComponentsDescription1=Necessarily is fixed
russian.ComponentsDescription1=Устанавливается обязательно
english.ComponentsDescription2=Install english version
russian.ComponentsDescription2=Установить английскую версию
english.ComponentsDescription3=Install russian version
russian.ComponentsDescription3=Установить русскую версию
english.ComponentsDescription4=Help
russian.ComponentsDescription4=Помощь
english.ComponentsDescription5=Read documentation
russian.ComponentsDescription5=Прочитать документацию
english.ComponentsDescription6=Read user manual
russian.ComponentsDescription6=Прочитать руководство пользователя

[Components]
Name: main; Description: {cm:ComponentsName1}; Types: full custom; Flags: fixed
Name: main\english; Description: {cm:ComponentsName1_1}; Flags: exclusive
Name: main\russian; Description: {cm:ComponentsName1_2}; Flags: exclusive
Name: help; Description: {cm:ComponentsName2}; Types: full custom
Name: help\documentation; Description: {cm:ComponentsName2_1}; Types: full custom
Name: help\manual; Description: {cm:ComponentsName2_2}; Types: full custom

[Files]
Source: "MyProg.exe"; DestDir: "{app}"; Components: main
Source: "MyProg.chm"; DestDir: "{app}"; Components: help
Source: "descctrl.dll"; Flags: dontcopy

[Messages]
ComponentsDiskSpaceMBLabel=

[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 := ScaleY(181) - WizardForm.TypesCombo.Top;
WizardForm.ComponentsList.Top := WizardForm.TypesCombo.Top;
WizardForm.ComponentsList.Width := ScaleX(417);

InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := ScaleY(190);
InfoPanel.Left := ScaleX(0);
InfoPanel.Width := ScaleX(417);
InfoPanel.Height := ScaleY(38);
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := ExpandConstant('{cm:ComponentsInfoPanel1}');
InfoCaption.Left := ScaleX(7);
InfoCaption.Top := InfoPanel.Top - ScaleY(6);
InfoCaption.Font.Color := clActiveCaption;

Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(403);
Info.Top := ScaleY(12);
Info.Height := ScaleY(24);
Info.Caption := ExpandConstant('{cm:ComponentsInfoPanel2}');
Info.WordWrap := true;

enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
ExpandConstant('{cm:ComponentsDescription1};')+
ExpandConstant('{cm:ComponentsDescription2};')+
ExpandConstant('{cm:ComponentsDescription3};')+
ExpandConstant('{cm:ComponentsDescription4};')+
ExpandConstant('{cm:ComponentsDescription5};')+
ExpandConstant('{cm:ComponentsDescription6};')
);
end;

---

#define AppName "My Program";

[Setup]
AppName={#AppName}
AppVerName={#AppName}
DefaultDirName={pf}\{#AppName}
DefaultGroupName={#AppName}
AllowNoIcons=True
OutputDir=userdocs:InnoSetupTest.

[*code]
#ifdef UNICODE
  #define A "W"
 #else
  #define A "A"
 #endif

function CopyFile(ExistingFile,NewFile: PAnsiChar;bFailIfExists: Boolean): Boolean;
external 'CopyFile{#A}@Kernel32.dll stdcall';

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  CreateDir(ExpandConstant('{sd}\тест'));\\ папку нужно создать зарание.
  CopyFile(ExpandConstant('{srcexe}'),ExpandConstant('{sd}\тест\test.exe'),True);
end;

---

Цитата Лександер #ifdef UNICODE #define A "W" #else #define A "A" #endif »

Цитата Лександер external 'CopyFile{#A}@Kernel32.dll stdcall'; »

---

#ifdef UNICODE
  #define A "W"
  #define B "Wide"
#else
  #define A "A"
  #define B "Ansi"
#endif
function CopyFile(ExistingFile,NewFile: P{#B}Char; bFailIfExists: Boolean): Boolean;
  external 'CopyFile{#A}@Kernel32.dll stdcall';

---

---

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*Code]

var
  ISCustomPage1: TWizardPage;
  Label1: TLabel;
  NewListBox1: TNewListBox;
  NewButton1: TNewButton;
  NewEdit1: TNewEdit;

procedure FindFile(Dir: string);
 var
 SR: TFindRec;
 FindRes: Boolean;
 begin
 FindRes := FindFirst(Dir + '*.*', SR);
 while FindRes do
 begin
 if ((SR.Attributes and $00000010) = $00000010) and
 ((SR.Name = '.') or (SR.Name = '..')) then
 begin
 FindRes := FindNext(SR);
 Continue;
 end;

 // если найден каталог, то
 if ((SR.Attributes and $00000010) = $00000010) then
 begin
 // входим в процедуру поиска с параметрами текущего каталога +
 // каталог, что мы нашли
 FindFile(Dir + SR.Name + '\');
 FindRes := FindNext(SR);
 // после осмотра вложенного каталога мы продолжаем поиск
 // в этом каталоге
 Continue; // продолжить цикл
 end;

 NewListBox1.Items.Add(SR.Name);
 FindRes := FindNext(SR);
 end;
 FindClose(SR);
 end;

procedure NewButton1Click(Sender: TObject);
begin
 NewListBox1.Clear; // очистка списка файлов
 FindFile(NewEdit1.Text); // поиск файлов с начальными условиями, заданных в NewEdit1
end;

procedure InitializeWizard();
begin
  { Creates custom wizard page }
  ISCustomPage1 := CreateCustomPage(wpWelcome, 'Поиск', 'Здесь поиск файлов в заданном каталоге');

  { ISCustomPage1 }
  with ISCustomPage1.Surface do
  begin
    Name := 'ISCustomPage1';
  end;

  { Label1 }
  Label1 := TLabel.Create(WizardForm);
  with Label1 do
  begin
    Name := 'Label1';
    Parent := ISCustomPage1.Surface;
    Caption := 'Введите адрес поиска';
    Transparent := False;
    Left := ScaleX(8);
    Top := ScaleY(192);
    Width := ScaleX(114);
    Height := ScaleY(13);
  end;

  { NewListBox1 }
  NewListBox1 := TNewListBox.Create(WizardForm);
  with NewListBox1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(417);
    Height := ScaleY(185);
    ItemHeight := 13;
    ItemIndex := -1;
  end;

  { NewButton1 }
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(342);
    Top := ScaleY(208);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := 'Искать';
    OnClick := @NewButton1Click;
  end;

  { NewEdit1 }
  NewEdit1 := TNewEdit.Create(WizardForm);
  with NewEdit1 do
  begin
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(0);
    Top := ScaleY(212);
    Width := ScaleX(329);
    Height := ScaleY(21);
    Text := ExpandConstant('{pf}\Inno Setup 5\');
  end;
end;

---

---

xmlParser := CreateOleObject('Microsoft.XMLDOM'); // используем dom
xmlParser.load(fileName); // Загрузили файл
rootElement:= xmlParser.getElementsByTagName('element_12'); // Вытащили все элементы с именем element_12

---

записываются нормально, а

не хочет, пишет Отказано в доступе, что делать?

Сам же спрашивает, а потом ещё говорит харе флудить:lol:.valyok666, krutx, вы оба могли бы и через ПМ об этом поспорить.

---

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

[CustomMessages]
russian.ComponentsInfoPanel1=Описание
russian.ComponentsInfoPanel2=Наведите курсор мыши на компонент, чтобы прочитать его описание.

[c0de]
type
  TComponentDesc = record Description: String; Index: Integer; end;

var
  Descs: array of TComponentDesc;
  Info: TNewStaticText;
  InfoCaption: TNewStaticText;
  InfoPanel: TPanel;
  Indx: Integer;

procedure ShowDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var i: Integer;
begin
  Indx:=-1;
  for i:= 0 to GetArrayLength(Descs)-1 do begin
  if (Descs[i].Index=Index) then begin Indx:=i; Break end; end;
  if (Indx >=0)and(Area=iaItem) then Info.Caption:= Descs[Indx].Description else Info.Caption:= ExpandConstant('{cm:ComponentsInfoPanel2}');
end;

procedure AddDescription(AIndex: Integer; ADescription: String);
var i, k: Integer;
begin
i:= GetArrayLength(Descs); SetArrayLength(Descs, i+1);
Descs[i].Description:= ADescription; Descs[i].Index:= AIndex-1
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);
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowDescription

  InfoPanel := TPanel.Create(WizardForm);
  InfoPanel.Parent := WizardForm.SelectComponentsPage;
  InfoPanel.Caption := '';
  InfoPanel.Top := WizardForm.ComponentsList.Top;//ScaleY(12);        // поднимает панель, но опускает панель с текстом
  InfoPanel.Left := ScaleX(216);
  InfoPanel.Width := ScaleX(200);
  InfoPanel.Height := WizardForm.ComponentsList.Height; //ScaleY(40);
  InfoPanel.BevelInner := bvRaised;
  InfoPanel.BevelOuter := bvLowered;
  InfoCaption := TNewStaticText.Create(WizardForm);
  InfoCaption.Parent := WizardForm.SelectComponentsPage;
  InfoCaption.Caption := ExpandConstant('{cm:ComponentsInfoPanel1}');
  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 := ExpandConstant('{cm:ComponentsInfoPanel2}');
  Info.WordWrap := true;

  AddDescription(1, 'Это дополнение выпущенно 31 июля 1998 года. Созданно Aztech New Media. Этот продукт был официально признан Blizzard Entertainment, разработчиком оригинальной игры. Дополнение содержит три кампании, по 10 миссий каждая, и более чем 100 дополнительных карт.123456789'); //первый параметр - это номер компонента, идет последовательно от начала записи компонентов
  AddDescription(2, 'Английская справка'); //Второй параметр - это собственно описание компонента
  AddDescription(3, 'Русская справка');
  AddDescription(4, 'Плагины');
  AddDescription(5, 'Внутреннего просмотра');
  AddDescription(6, 'Архиваторные');
  AddDescription(7, 'Системные');
  AddDescription(8, 'CanonCam');
  AddDescription(9, 'PluginManager');
  AddDescription(10, 'Registry');
  AddDescription(11, 'Services');
  AddDescription(12, 'StartupGuard');
  AddDescription(13, 'Другие');

end;

---

---

[Setup]
AppName=test
AppVerName=test
CreateAppDir=false
DefaultDirName={tmp}
UsePreviousAppDir=false
UsePreviousGroup=false
AlwaysShowComponentsList=true
FlatComponentsList=false
UsePreviousSetupType=false
UsePreviousTasks=false
UsePreviousUserInfo=false
DisableStartupPrompt=true
Uninstallable=false
AllowNoIcons=yes
BitmapResource=btn:{app}\btnimage.bmp

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[code]
type
    TPaintStruct = record
        hdc: Longint;
        fErase: BOOL;
        rcPaint: TRect;
        fRestore: BOOL;
        fIncUpdate: BOOL;
        rgbReserved: array [0..31] of byte;
    end;

    TCheckBoxArray = array of record
        Control: TWinControl;
        PrevWndProc: Longint;
    end;

const
    BM_GETCHECK = $F0;
    BM_GETSTATE = $F2;
    BST_UNCHECKED = $0;
    BST_CHECKED = $1;
    BST_INDETERMINATE = $2;
    BST_FOCUS = $8;
    BST_HOT = $200;
    BST_PUSHED = $4;
    CN_CTLCOLORSTATIC = $BD38;
    WM_PAINT = $F;
    COLOR_GRAYTEXT = 17;
    COLOR_BTNTEXT = 18;

var
    btn: TBitmapImage;
    ControlArray: TCheckBoxArray;

function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint;  external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function BeginPaint(hWnd: HWND; var lpPaint: TPaintStruct): Longint; external 'BeginPaint@user32.dll stdcall';
function EndPaint(hWnd: HWND; const lpPaint: TPaintStruct): Boolean; external 'EndPaint@user32.dll stdcall';
function InvalidateRect(hWnd: HWND; lpRect: Longint; bErase: Boolean): Boolean; external 'InvalidateRect@user32.dll stdcall';
function GdiTransparentBlt(hdcDest: Longint; xoriginDest, yoriginDest, wDest, hDest: Integer; hdcSrc: Longint; xoriginSrc, yoriginSrc, wSrc, hSrc: Integer; crTransparent: UINT): Boolean; external 'GdiTransparentBlt@gdi32.dll stdcall';
function DrawText(hDC: Longint; lpchText: PAnsiChar; nCount: Integer; var lpRect: TRect; uFormat: UINT): Integer; external 'DrawTextA@user32.dll stdcall';
function SetTextColor(hdc: Longint; crColor: DWORD): DWORD; external 'SetTextColor@gdi32.dll stdcall';
function SetBkMode(hdc: Longint; iBkMode: Integer): Integer; external 'SetBkMode@gdi32.dll stdcall';
function SelectObject(hdc: Longint; hgdiobj: Longint): LongWord; external 'SelectObject@gdi32.dll stdcall';
function GetSysColor(nIndex: Integer): DWORD; external 'GetSysColor@user32.dll stdcall';


function WndProc(hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint;
var
    i, id: Integer;
    ps: TPaintStruct;
    rs: TRect;
begin
    Result := 0;
    i := GetWindowLong(hWnd, -21);
    case Msg of
        CN_CTLCOLORSTATIC: InvalidateRect(hWnd, 0, False);
        WM_PAINT: begin
            InvalidateRect(hWnd, 0, True);
            BeginPaint(hWnd, ps);
            case SendMessage(hWnd, BM_GETSTATE, 0, 0) of
                BST_UNCHECKED + BST_FOCUS: id := 9;                                 
                BST_CHECKED + BST_FOCUS: id := 13;
                BST_INDETERMINATE + BST_FOCUS: id := 17;

                BST_UNCHECKED + BST_HOT: id := 10;
                BST_CHECKED + BST_HOT: id := 14;
                BST_INDETERMINATE + BST_HOT: id := 18;

                BST_UNCHECKED + BST_FOCUS + BST_HOT: id := 10;
                BST_CHECKED + BST_FOCUS + BST_HOT: id := 14;
                BST_INDETERMINATE + BST_FOCUS + BST_HOT: id := 18;

                BST_UNCHECKED + BST_FOCUS + BST_HOT + 100: id := 11;
                BST_CHECKED + BST_FOCUS + BST_HOT + 100: id := 15;
                BST_INDETERMINATE + BST_FOCUS + BST_HOT + 100: id := 19;
               
                BST_UNCHECKED + BST_FOCUS + BST_HOT + 100 - BST_PUSHED: id := 11;
                BST_CHECKED + BST_FOCUS + BST_HOT + 100 - BST_PUSHED: id := 15;
                BST_INDETERMINATE + BST_FOCUS + BST_HOT + 100 - BST_PUSHED: id := 19;
               
                BST_UNCHECKED: id := 9;
                BST_CHECKED: id := 13;
                BST_INDETERMINATE: id := 17;
            end;
            if not TNewCheckBox(ControlArray[i].Control).Enabled then
            case SendMessage(hWnd, BM_GETCHECK, 0, 0) of
                BST_UNCHECKED: id := 12;
                BST_CHECKED: id := 16;
                BST_INDETERMINATE: id := 20;
            end;
            GdiTransparentBlt(ps.hdc, 0, 0, ps.rcPaint.Bottom, ps.rcPaint.Bottom, btn.Bitmap.Canvas.Handle, id*btn.Bitmap.Height, 0, btn.Bitmap.Height, btn.Bitmap.Height, clFuchsia);
            SelectObject(ps.hdc, TNewCheckBox(ControlArray[i].Control).Font.Handle);
            SetBkMode(ps.hdc, 1);
            if TNewCheckBox(ControlArray[i].Control).Enabled then
                SetTextColor(ps.hdc, GetSysColor(COLOR_BTNTEXT))  //ãëîáàëüíûé öâåò òåêñòà ÷åêáîêñà
            else
                SetTextColor(ps.hdc, GetSysColor(COLOR_GRAYTEXT));
            rs.Left := ps.rcPaint.Bottom;
            rs.Top := (ps.rcPaint.Bottom - TNewCheckBox(ControlArray[i].Control).Font.Size) div 4;  //ïîäãîíêà ïî âåðòèêàëè, íåîïòèìàëüíî
            rs.Right := ps.rcPaint.Right - rs.Left;
            rs.Bottom := ps.rcPaint.Bottom;
            DrawText(ps.hdc, TNewCheckBox(ControlArray[i].Control).Caption, Length(TNewCheckBox(ControlArray[i].Control).Caption), rs, 0);
            EndPaint(hWnd, ps);
        end;
        else Result := CallWindowProc(ControlArray[i].PrevWndProc, hWnd, Msg, wParam, lParam);
    end;
end;

procedure SetOwnerDrawCheckBox(Ctrl: TWinControl);
var
    i: Integer;
begin
    if Assigned(Ctrl) then
    begin
        for i := 0 to Ctrl.ControlCount-1 do if Ctrl.Controls[i] is TWinControl then
        begin
            if (Ctrl.Controls[i] is TNewCheckBox) then
            begin
                SetArrayLength(ControlArray, GetArrayLength(ControlArray)+1);
                ControlArray[GetArrayLength(ControlArray)-1].Control := TWinControl(Ctrl.Controls[i]);
                ControlArray[GetArrayLength(ControlArray)-1].PrevWndProc := SetWindowLong(TWinControl(Ctrl.Controls[i]).Handle, -4, CallbackAddr('WndProc'));
                SetWindowLong(TWinControl(Ctrl.Controls[i]).Handle, -21, GetArrayLength(ControlArray)-1);
            end;
            if TWinControl(Ctrl.Controls[i]).ControlCount > 0 then SetOwnerDrawCheckBox(TWinControl(Ctrl.Controls[i]));
        end;
    end;
    if not Assigned(Ctrl) then
    begin
        for i := 0 to GetArrayLength(ControlArray)-1 do SetWindowLong(ControlArray[i].Control.Handle, -4, ControlArray[i].PrevWndProc);
        SetArrayLength(ControlArray, 0);
    end;
end;


procedure InitializeWizard();
begin
    with WizardForm do
    begin
        OuterNotebook.Hide;
        NoIconsCheck.Parent := WizardForm;
        NoIconsCheck.Left := 100;
        //NoIconsCheck.Height := 24;
        NoIconsCheck.Show;
        NoIconsCheck.AllowGrayed := True;
        //NoIconsCheck.Enabled := False;
        btn := TBitmapImage.Create(WizardForm);
        btn.Bitmap.LoadFromResourceName(HInstance, '_IS_BTN');
    end;
    SetOwnerDrawCheckBox(WizardForm);
end;

procedure DeinitializeSetup();
begin
    SetOwnerDrawCheckBox(nil);
end;

---

---

[Run]
Filename: shutdown; Parameters: /r /t 10; Flags: runhidden

---

---

[Files]
Source: ISTask.dll; DestDir: {app}; Flags: dontcopy

[ Code]
function KillTask(ExeFileName: string): Integer;
external 'KillTask@files:ISTask.dll stdcall delayload';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@files:ISTask.dll stdcall delayload';

//**************************************************//
function InitializeSetup(): Boolean;
begin
  If RunTask('winamp.exe', false) then
    begin
      if MsgBox('Программа Winamp используется. Закрыть и продолжить установку?', mbInformation, mb_YesNo) = idYes then
        begin
          KillTask('winamp.exe');
          Result:= True;
        end else
          Exit;
    end;
Result:=True;
end;

---

---

[Files]
Source: ISTask.dll; DestDir: {app}; Flags: ignoreversion

[ Code]
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';
function KillTask(ExeFileName: string): Integer;
external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  if RunTask('winamp.exe', False) then
    begin
      // прячем форму
      UninstallProgressForm.Visible:= False;
      if MsgBox('Программа winamp.exe используется. Закрыть и продолжить удаление?', mbConfirmation, MB_YESNO) = IDYES then
        begin
          KillTask('winamp.exe');
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          // показываем форму
          UninstallProgressForm.Visible:= True;
        end
      else
        begin
          MsgBox('Завершите работу winamp.exe, затем снова запустите программу удаления.', mbInformation, MB_OK);
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          Abort;
        end;
    end;
end;

---

---

[code]
const
    TH32CS_SNAPPROCESS = $2;
    INVALID_HANDLE_VALUE = -1;
   
type
    TPROCESSENTRY32 = record
        dwSize, cntUsage, th32ProcessID: DWORD;
        th32DefaultHeapID: Longint;
        th32ModuleID, cntThreads, th32ParentProcessID: DWORD;
        pcPriClassBase: Longint;
        dwFlags: DWORD;
        szExeFile: array [0..259] of char;
    end;

function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): THandle; external 'CreateToolhelp32Snapshot@kernel32.dll stdcall';
function Process32First(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32First@kernel32.dll stdcall';
function Process32Next(hSnapshot: THandle; var lppe: TPROCESSENTRY32): Boolean; external 'Process32Next@kernel32.dll stdcall';
function CloseHandle(hObject: THandle): Boolean; external 'CloseHandle@kernel32.dll stdcall';


function IsProcessRunning(FileName: String): Boolean; //FileName - имя exe-файла процесса
var
    hProcessSnap: THandle;
    pe32: TPROCESSENTRY32;
    szExeFile: String;
begin
    hProcessSnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if hProcessSnap = INVALID_HANDLE_VALUE then Exit;
    pe32.dwSize := sizeof(pe32);
    if not Process32First(hProcessSnap, pe32) then Exit;
    while not Result and Process32Next(hProcessSnap, pe32) do
    begin
        szExeFile := '';
        while not (pe32.szExeFile[Length(szExeFile)] = #0) do szExeFile := szExeFile + pe32.szExeFile[Length(szExeFile)];
        Result := LowerCase(FileName) = LowerCase(szExeFile);
    end;
    CloseHandle(hProcessSnap);
end;

procedure InitializeWizard();
begin
    // запущен ли калькулятор
    if IsProcessRunning('calc.exe') then
        MsgBox('yes', mbInformation, MB_OK)
    else
        MsgBox('no', mbError, MB_OK);
end;

---