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

[alert30]

Twoface, кажись, первый: из твоего проекта (iss-файл) выделяем все коды в секции [Code] и копипастим, создаем отдельный iss, вставляемую (из копипаста) код Паскаля из секции [Code], сохраняем. Второй: создаем 2-ой отдельный файл, из скачанного набора скрипта IsDone, и делаем то же самое, что и первое (копипастим и вставлем), сохраняем. Выделять две созданные проекты (iss-файлы), затем ПКМ -> Join scripts.

Не могу уже повторять, я реально написал, как это сделать.

[Twoface]

alert30 »
Это я уже всё понял, я просто не могу запустить Join. Уже голова опухла, я первый раз, так что за слишком тупого не принимайте)))))))))

[Ivan_009]

Twoface, Щас прикручу IsDone подожди немного... :yes:

[Twoface]

Ivan_009 »

Спасибо большое при большое!

[Ivan_009]

Twoface, Лови скрипт в папку include положишь сами файлы IsDone....
Также исправил ошибку при выходе из инсталлятора была ошибка...
Таймеры забыли наверное... :happy:

[Ivan_009]

У кого есть пример создания чекбоксов через ботву поделитесь пожалуйста...В самих примерах ботвы не нашол... :(

[Gnom_aka_Lexander]

Ivan_009, btnCreate

[Twoface]

Маленькая проблемка, прикрутил музыку через BASS_Module отдельно, ошибки не какой нет но и втот же момент не кнопки ВКЛ и ВКЛ а также музыка не начинает самостоятельно играть, посмотрите скрипт пожалуйста.

http://rghost.ru/40050819

[Ivan_009]

Как скрыть данную кнопку....

[Twoface]

Ivan_009,

Вот нарыл что-то: Мож один из вариантов тебе подойдёт.

1)
[Code]
Procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectDir then
begin
If WizardForm.FindComponent('DirBrowseButton') is TButton
then
TButton(WizardForm.FindComponent('DirBrowseButton' )).Hide;
end;
end;

2)
Procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.DirBrowseButton.hide //wpSelectDir
WizardForm.GroupBrowseButton.hide //wpSelectProgramGroup
end;

3)
procedure InitializeWizard();
begin
WizardForm.DirBrowseButton.hide;
end;

[Ivan_009]

Twoface, Вот держи в папку BASS_Files добавь Music.mp3...

[vint56]

Ivan_009 у тебя пример на ботве

procedure HideComponents;
begin
BtnSetVisibility(hDirBrowseBtn, false); // мы скрываем кнопку
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
HideComponents;
if CurPageID = wpSelectDir then // это где именно на станице выбор папки установки
begin
BtnSetVisibility(hDirBrowseBtn, true); // здесь мы показываем
end;
end;

[Twoface]

Ivan_009,

Ошибка теперь выходит:
СКРИНhttp://2.firepic.org/2/images/2012-08/28/6gamyv05l5hx.jpg

[Twoface]

Ivan_009,

Спасибо за то что постарался помочь, век помнить буду. Всё, я сам сделал, правда голова чуть не лопнула но сделал.

[Ivan_009]

как на финишной странице передвинуть текструированную кнопку через ботву.... :sorry:

[nik1967]

Ivan_009,
function BtnCreate(hParent :HWND; Left, Top, Width, Height :integer; FileName :PAnsiChar; ShadowWidth :integer; IsCheckBtn :boolean) :HWND; external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
//hParent - хэндл окна-родителя, на котором будет создана кнопка
//Left,Top,
//Width,Height - без комментариев. то же что и для обычных кнопок
//FileName - файл с изображением состояний кнопки
// для обычной кнопки нужно 4 состояния кнопки (соответственно 4 изображения)
// для кнопки с IsCheckBtn=True нужно 8 изображений (как для чекбокса)
// изображения состояний должны располагаться вертикально
//ShadowWidth - кол-во пикселей от края рисунка кнопки, до реальной ее границы на рисунке.
// нужно чтобы состояние кнопки и курсор на ней менялись как положено
//IsCheckBtn - если True, то будет создана кнопка (аналог CheckBox) имеющая включенное и выключенное состояние
// если False, то создастся обычная кнопка
//возвращаемое значение - хэндл созданной кнопки

или так
procedure BtnSetPosition(h:HWND; NewLeft, NewTop, NewWidth, NewHeight: integer); external 'BtnSetPosition@{tmp}\botva2.dll stdcall delayload';
//устанавливает координаты левого верхнего угла и размер кнопки
//h - хэндл кнопки (результат возвращенный BtnCreate)
//NewLeft, NewTop - новые координаты верхнего левого угла (в координатах родительского окна)
//NewWidth, NewHeight - новые ширина, высота кнопки

Procedure CurPageChanged(CurPageID: Integer);
Begin
case CurPageID of
wpFinished:
begin
BtnSetPosition(hNextBtn, ScaleX(320),ScaleY(400),ScaleX(90),ScaleY(90));
end;
end;
end;

[Ivan_009]

Как сделать деинсталлятор через ботву. Дело в том что инстал я сделал а как деинсталлятор не знаю... :(

[MogilShik2007]

Повторюсь, так как не услышал ответа)))

После запуска игры появляются такие значения в реестре:
Root: HKLM; Subkey: "SOFTWARE\Classes\CLSID\{EE4DEA71-3E59-432B-AF58-2B13E53D4F90}"; и т.д.
Root: HKLM; Subkey: "SOFTWARE\Classes\Record\{05266000-5465-3AA0-90F4-6FDD962F7F95}"; и т.д.

Где цифры со скобками выделены фиолетовым цветом, это можно как то прописать чтобы удалялось?
ЗЫ. Если вручную прописывать эти ключи, то инсталлер ругается на скобы и не хочет делать сборку)))

[L1nk3R]

Привет.
MogilShik2007, да легко.

[Registry]
Root: HKLM; Subkey: SOFTWARE\Classes\CLSID\{{EE4DEA71-3E59-432B-AF58-2B13E53D4F90}; Flags: uninsdeletekey dontcreatekey
Root: HKLM; Subkey: SOFTWARE\Classes\Record\{{05266000-5465-3AA0-90F4-6FDD962F7F95}; Flags: uninsdeletekey dontcreatekey

[Ivan_009]

Как текструировать DirEdit и GroupEdit через ботву....Заранее спасибо.