» Inno Setup (создание инсталяционных пакетов)

BADAN36
Смотри справку к ISDone0.6d. В примерах есть как раз то что тебе нужно.

да смотрел я говорю же я в этом не разбираюсь не получается у меня напишите пример как нужно

Как привязать SetPriorityClass к Tasks?

ALExey1995
[more]
Код: [_tasks]
Name: pr; Description: PRIORITY;
Name: pr\1; Description: IDLE_PRIORITY; Flags: exclusive
Name: pr\2; Description: NORMAL_PRIORITY; Flags: exclusive

[_code]
const
NORMAL_PRIORITY_CLASS = $00000020;
IDLE_PRIORITY_CLASS = $00000040;
HIGH_PRIORITY_CLASS = $00000080;
REALTIME_PRIORITY_CLASS = $00000100;

function SetPriorityClass(hProcess: THandle; dwPriorityClass: DWORD): BOOL;
external 'SetPriorityClass@kernel32';

function GetCurrentProcess: THandle;
external 'GetCurrentProcess@kernel32';

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpInstalling: begin
if IsTaskSelected('pr\1') then
SetPriorityClass(GetCurrentProcess, IDLE_PRIORITY_CLASS)
else if IsTaskSelected('pr\2') then
SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS)
end;
end;
end;

BADAN36
http://rghost.ru/14283431

Правь под себя.

Kasoi Спасибо большое!.
Еще один вопрос а вот если у меня большое количество папок с .ogg файлами и все папки прописывать долго очень ,то можно как нибудь прописать чтобы программма сама находила и перекодировала эти файлы?

BADAN36
В ogg-wav чтоль? прописывайте папку где ogg файлы и заместо имени файла, пишите *.ogg. Вроде это так делается там!

oZEROth2008
Не, он хочет с подпапками.
BADAN36
Я с ISDone пока не очень дружу. Я знаю только как батниками это делается.

troyan90
Спасибо!

зацените пример, градиентный прогресс бар
http://rghost.ru/14314161

troyan90
Смотрится неплохо. Надо только цвета более контрастные подобрать, а то зеленый и красный как бы сливаются.
А можно изменять цвет не сверху вниз, а слева на право?

troyan90
ОГРОМНОЕ спасибо!

Цитата:

Надо только цвета более контрастные подобрать

да запроста. меняй здесь:

Код: BColor = cllime;
EColor = clblack;

Цитата:

да запроста. меняй здесь:

Спасибо, буду экспериментировать =)

Цитата:

там было сверху вниз, оно впринципе так и надо было.

Не, я понял. Просто интересно было.

Kasoi 19:30 12-07-2011
Цитата:

А можно изменять цвет не сверху вниз, а слева на право?

Замени процедуру GradientFill на [more=эту]Procedure GradientFill(WorkBmp: TBitmapImage; BeginColor, FinishColor: TColor);
var
ColorBand: TRect;
Begin
    WorkBmp.Bitmap.Width:= WorkBmp.Width; WorkBmp.Bitmap.Height:= WorkBmp.Height;
n:= 255;
for i:=0 to n do begin
     ColorBand.Right:= MulDiv(i+1, WorkBmp.Width, n);
ColorBand.Left:= MulDiv(i, WorkBmp.Width, n);
     ColorBand.Top:= 0;
     ColorBand.Bottom:= WorkBmp.Height;
     WorkBmp.Bitmap.Canvas.Brush.Color:= RGB(GetRValue(BeginColor) + MulDiv(I, GetRValue(FinishColor) - GetRValue(BeginColor), n-1), GetGValue(BeginColor) + MulDiv(I, GetGValue(FinishColor) - GetGValue(BeginColor), n-1), GetBValue(BeginColor) + MulDiv(I, GetBValue(FinishColor) - GetBValue(BeginColor), n-1));
     WorkBmp.Bitmap.Canvas.FillRect(ColorBand);
end;
End;[/more]

troyan90
Делал на основе примера текстурирования прогрессбаров ? Но зачем столько таймеров? Когда хватит одного. И да у тебя там есть одна проблема - обновляется только последний текстурированный прогрессбар (по крайней мере судя по коду).

Gnom3 предложил сделать скрипт в виде модуля. вот конечный результат
Градиентный прогресс бар

а можно код чтоб пропустить страницу WizardForm.SelectTasksPage?

удали секцию tasks

и на том спасибо. я уже разобрался

Помогите пожалуйста решить эту проблему:
http://i26.fastpic.ru/big/2011/0713/af/d064dc24282e0f83a70b90488f4b2eaf.png
Думал из-за Packers Show 4.1, скачал Packers Show 4.0 и тоже самое.
Уже второй день не могу решить эту проблему =( Что посоветуете?

ZEN369
В пакер шоу 4.1 и 4.0, если не ошибаюсь, версия прекомпа 0.4.1, а в срипте указаны 0.38 и 0.4
Из-за этого и ошибка.

Спецы подскажите как в скрипте запретить создавать запись в аплете "установка и удаление программ"?
есть в скрипте строчка AppVerName=Бла бла бла, версия 1.2
она появляется и в "установке \удаления программ", убираю строчку из скрипта, ругается инно...

tahirg

Код: [Setup]
Uninstallable=false

ZEN369
В начале скрипта:
#define precomp "0.41"
Укажи здесь версию прекомпы.

у меня в скрипте проблемка маленькая.

Снимаю галочки
не создавать ярлык,не устанавливать доп ПО а установщик всёравно в конце устанавливает ПО и ярлык создаёт.
ПОмогите исправить

ILIA1992
Скрипт в студию...

moonlight82
Вот http://rghost.ru/14395401
и можешь помочь сделать Logo прозрачным и и заменить картинку с лого на картинку с WizardImage
только что попробовал поставил галочку создать ярлык но после установки ярлык не создался???

Добрый день всем
Раскомпилил одну программку, но так и не понял одного
Там в скрипте нет процедуры установки виртуального принтера (InstallPrinter)
Source: "{app}\udceng.exe"; DestDir: "{app}"; AfterInstall: "InstallPrinter"; MinVersion: 5.0,5.0; Flags: ignoreversion
В описаниях к Inno не нашел как привинчивать виртуальный принтер
Если кого-то не затруднит, скажите можно ли как-то сделать его, выдрать из программы или это бесполезно

Заранее благодарен

Цитата:

В описаниях к Inno не нашел как привинчивать виртуальный принтер

Дык, этого не должно быть в описании. Причём здесь Inno и виртуальный принтер!?


Цитата:

выдрать из программы или это бесполезно

Ты можешь глянуть псевдоассемблерный код, который ты сам видать и выдрал и уже сам можешь думать. За тебя тут никто не будет думать по этому вопросу.

SotM
Я это понимаю. Я думал может есть скрипт в Inno для установки виртуального принтера. Видимо нет
Да глядел я этот псевдокод, там блин черт ногу сломит...
Затея значит никуда... Жаль
Вопрос снят...