[vint56]

Raz3r,

читать дальше »

#include "Modules\botva2.iss"

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program

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

[CustomMessages]
rus.Desktop=Soft номер 1
rus.Desktop1=Soft номер 2
[Files]
Source: "InstallFiles\*"; Flags: dontcopy;

[Icons]
Name: "{commondesktop}\Soft номер 1"; Filename: "{app}\MyProg.exe"; Check: Dop;
Name: "{commondesktop}\Soft номер 2"; Filename: "{app}\MyProg.exe"; Check: Dop1;

[code]
var
DopCheck,DopCheck1: HWND;
DopLabel, DopLabel1: TLabel;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function Dop: Boolean;
begin
Result:= BtnGetChecked(DopCheck);
end;

procedure DopClick(hBtn:HWND);
begin
if BtnGetChecked(hBtn) then DopLabel.Font.Color:=$0000FF else DopLabel.Font.Color:=$000000;
end;

procedure DopLabelClick(Sender:TObject);
begin
BtnSetChecked(DopCheck, not BtnGetChecked(DopCheck));
DopClick(DopCheck);
end;
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function Dop1: Boolean;
begin
Result:= BtnGetChecked(DopCheck1);
end;

procedure DopClick1(hBtn:HWND);
begin
if BtnGetChecked(hBtn) then DopLabel1.Font.Color:=$0000FF else DopLabel1.Font.Color:=$000000;
end;

procedure DopLabelClick1(Sender:TObject);
begin
BtnSetChecked(DopCheck1, not BtnGetChecked(DopCheck1));
DopClick1(DopCheck1);
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function InitializeSetup: Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\CallbackCtrl.dll')) then ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;

procedure InitializeWizard;
begin
DopCheck:=BtnCreate(WizardForm.SelectDirPage.Handle,ScaleX(10),ScaleY(120),ScaleX(23),ScaleY(23),Exp andConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(DopCheck,BtnClickEventID,WrapBtnCallback(@DopClick,1));
BtnSetCursor(DopCheck,GetSysCursorHandle(32649));
BtnSetChecked(DopCheck,True);

DopLabel := TLabel.Create(WizardForm);
with DopLabel do begin
AutoSize:=False;
SetBounds(ScaleX(35), ScaleY(124), ScaleX(270), ScaleY(17));
OnClick:= @DopLabelClick;
Cursor:= CrHand;
Transparent:=True;
Caption := ExpandConstant('{cm:Desktop}');
Parent := WizardForm.SelectDirPage;
Font.Color:=$0000FF;
end;

DopCheck1:=BtnCreate(WizardForm.SelectDirPage.Handle,ScaleX(10),ScaleY(150),ScaleX(23),ScaleY(23),Ex pandConstant('{tmp}\CheckBox.png'),8,True);
BtnSetEvent(DopCheck1,BtnClickEventID,WrapBtnCallback(@DopClick,1));
BtnSetCursor(DopCheck1,GetSysCursorHandle(32649));
BtnSetChecked(DopCheck1,True);

DopLabel1 := TLabel.Create(WizardForm);
with DopLabel1 do begin
AutoSize:=False;
SetBounds(ScaleX(35), ScaleY(154), ScaleX(270), ScaleY(17));
OnClick:= @DopLabelClick1;
Cursor:= CrHand;
Transparent:=True;
Caption := ExpandConstant('{cm:Desktop1}');
Parent := WizardForm.SelectDirPage;
Font.Color:=$0000FF;
end;

end;

procedure DeinitializeSetup;
begin
gdipShutdown;
end;

[Kashtan007]

Всем привет, посоветуйте несколько способов, как правильно использовать скин в установщике (.cjstyles) на юникоде.

Заранее спасибо за ответ.

[Irenis]

if not IS7ZipExtract ( 0, 0, ExpandConstant('{src}\Data-A.bin'), ExpandConstant('{app}'), false, '') then break; »

Вставила эту строчку, не получается, именно на этой строчке ошибка. Может где то что подправить нужно? Или может у меня каких dll не хватает? В общем тут http://my-files.ru/2c6x1r пример скрипта игры и все остальное, может подскажите.

[vint56]

Irenis,
http://rghost.ru/57360119
Kashtan007
http://rghost.ru/57361849

[habib2302]

И можно сделать так чтобы после нажатия кнопки запускались два деинсталлятора. 1 это деинсталлятор который был создан моим инсталлятором и 2 это деинсталлятор от flash player т.к через реестр не очень

Код:

procedure RedesignWizardForm;
begin
  with WizardForm.ComponentsList do
  begin
    Height := ScaleY(141);
  end;
end;

var
  ISCustomPage1: TWizardPage;
  NewButton1: TNewButton;
  ResultCode: Integer;
  lpBuff: String;

procedure NewButton1Click(Sender: TObject);
begin
  shellexec('open', ExpandConstant('{tmp}\un.exe'), '', '',SW_SHOWNORMAL, ewnowait, ResultCode)
end;

function InitializeSetup(): Boolean;
var ResultCode:integer;
begin
ExtractTemporaryFile('un.exe');
 if WizardSilent then
  if FileExists (ExpandConstant('{tmp}\un.exe')) then //имхо, если при установке вы что-то пишете в реестр, то перед удалением неплохо было бы еще проверять наличие в реестре данных об уже установленной версии
   Exec(ExpandConstant('{tmp}\un.exe'), '/uninstall /force', '', SW_SHOW,ewWaitUntilTerminated, ResultCode);
 result:=true;
end;

procedure InitializeWizard;
begin
  RedesignWizardForm;
    NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Parent := WizardForm.SelectComponentsPage;
    Left := ScaleX(0);
    Top := ScaleY(200);
    Width := ScaleX(417);
    Height := ScaleY(33);
    Caption := CustomMessage('NewButton1');
    OnClick := @NewButton1Click;
  end;
end;

[Irenis]

vint56, Спасибо за скрипт. Вроде бы разобралась, пока единственный вопрос остался. Во время распаковки ниже процесс бара две надписи: прошло времени и осталось времени. И вот с надписью осталось времени что то не то, вместо минут там вот так "осталось времени: тестовый прогон". И в конце установки тоже надпись "время установки: тестовый прогон". Можно ли это как то исправить?

[Nordek]

"время установки: тестовый прогон". Можно ли это как то исправить? »

Всё верно. Вы когда только создаёте инсталлятор со всеми вытикающими, то первоночально тестовый прогрон необходим для более точного отображения процентов и времени при установке.
Т.е у вас например всё готово к завершению.
Имеются архивы bin.arc1, bin.arc2, bin.arc3 и т.д.
Делаете первую установку для того, чтоб рядом создался файл records.inf - где будут прописаны значения для архивов "bin.arc1, bin.arc2, bin.arc3 и т.д.".
после того как файл records.inf создался, то для окончательной компиляции раскомментируйте в скрипте #define records.

Если захотите пережать или добавить какое либо содержимое в свои архивы bin.arc1, bin.arc2, bin.arc3 и т.д., то понадобиться опять закомментировать #define records. Сделать тестовый прогон и раскомментировать.

---

осталось времени: тестовый прогон »

А в справке к ISDone разве нет?

Я даже процитирую (а то не поверите, скажите там такого нет или не нашли):

ISDone » Описание скрипта:

Код: #define records определяет будет ли включен в компиляцию файл records.inf. Он служит для автоматического определения процентных соотношений между операциями. Создается в первом прогоне установки, далее включается в установщик раскомментированием выше указанной строки. Более подробную информацию об этом файле и тестовом прогоне см. раздел "Работа с библиотекой";

ISDone » Работа с библиотекой:

Для осуществения работоспособности библиотеки существует 2 вида определения процентных соотношений между операциями на всем прогрессбаре: Автоматическая расстановка процентных соотношений в операциях. При автоматической расстановке необходим тестовый проход для определения времени выполнения каждой операции относительно других. Для включения данного режима необходимо заполнить вторые значения всех функций извлечения архивов нулями. Краткая инструкция: первым делом убедитесь, что в начале скрипта закомментирована строка Код: #define records (т.е. необходимо поставить точку с запятой в начале этой строки); компилим проект и запускаем на установку. Это и будет нашим тестовым проходом. Все операции должны дойти до конца и завершиться удачно. Прогрессбар будет зашкаливать и все компоненты будут извлечены вне зависимости от того выбраны они, или нет. Все так и должно быть! после тестового прогона в указанной папке создастся файл records.inf (имя и путь назначается в процедуре инициализации. О ней см. "подробное описание функций" ниже), его необходимо добавить в проект, раскомметировав, или добавив в начале скрипта строку: Код: #define records Так же стоит отметить, что если сам скрипт находится в папке отличной от той, в которую компилится проект (например в скрипте NFS:Undercover откомпиленный файл сохраняется в Output\setup.exe), то records.inf создастся в папке с setup.exe и его необходимо будет перенести непосредственно к скрипту, или же подправить в секции [Files] его истинное расположение, например: Код: #ifdef records Source: Output\records.inf; DestDir: {tmp}; Flags: dontcopy #endif снова откомпилить проект. После этого инсталлер готов к работе. При запуске процесс выполнения операций будет равномерно и корректно отображаться на прогрессбаре. Ручная расстановка процентов на каждую операцию. При ручной расстановке если в проекте множество операций, все расчеты необходимо производить вручную. Т.е. сумма процентов всех выполненных операций должна равняться 100%, иначе корректного отображения на прогрессбаре не будет. Для включения данного режима необходимо заполнить вторые значения всех функций извлечения архивов значениями процентов, отличными от 0 (числа могут быть дробными). При групповой распаковке архивов по маске (типа *.pcf) для операции задается общий процент на все распаковываемые файлы данной командой, а уж каждый из найденных файлов будет разбивать указанный кусок прогрессбара еще на части пропорциональные размерам файлов. Например строка: Код: if not ISArcExtract (0, 100, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}'), false, '', '', '') then break; ... распакует все *.arc архивы из {src} в {app}, при чем весь прогрессбар будет поделен на кусочки пропрорциональные размерам архивов. В общем тут все так же как в скрипте распаковки FreeArc.iss и ему подобным. Таким образом при распаковке нескольких архивов одного типа проще пользоваться ручной расстановкой, т.к. отличие расперделения процентов от автоматической будет совсем небольшим, но за то не требуется тестовый проход. Вот некоторые правила, которые неоходимо выполнять при ручной расстановке: сумма процентов учитывая ветвления (использование компонентов, условий) в скрипте должна составлять 100; у компонентов, для которых возможен выбор только одного из нескольких, должны быть одинаковые значения процентов; НЕЛЬЗЯ использовать компоненты, которые можно выбирать одновременно с другими в одной группе (например несколько рядом стоящих компонент без флага exclusive), потому что сумма процентов при различном выборе пользователя может отличаться от 100. Примечание Стоит упомянуть функцию ISExec, в которой третьим параметром задается время выполнения текущей операции. При автоматической расстановке время на операцию расчитывается приближенное к реальному (при условии, что данная операция не первая, иначе время выполнения берется равное тому, которое было в тестовом проходе). При ручной же расстановке: если машина пользователя быстрее обработает данную операцию, чем расчитано автором инсталла, то прогресс будет немного скачкообразным в моменты переходов между функциями распаковки; если машина пользователя медленнее - прогресс наоборот будет задерживаться между операциями.

[vint56]

Irenis, я же в скрипте сделал комментарий справка в архиве называется readme.CHM
; описаний в справке там все описано
;#define records

[Irenis]

Nordek, Ясно, спасибо большое. А чтобы не делать эти тестовые прогоны, можно ли в скрипте просто удалить какие то строчки, чтобы надпись "осталось времени" вообще убрать? Ну и в конце чтобы убрать "время установки"?

vint56, Ну да, теперь поняла)) Но все таки хотелось бы как то убрать эти строчки.

[Irenis]

vint56, Nordek, Спасибо огромное за участие, спасибо за помощь Конечно, в первую очередь нужно читать инструкции, а потом уже спрашивать, что не понятно. Но когда не знаешь, где в инструкции находится именно то, что тебе нужно, чаще всего до инструкций не доходит дело, а с маленьким ребенком еще сложнее найти время на инструкции Поэтому уж не судите строго, если потом как нибудь еще обращусь за помощью