[VASYAKRN]

Как создать лейб старт-время запуска сетапа и конец-конец распаковки как в закосе на блека от ник1967

[Gugle]

Gugle, Попробуй, »

Это не совсем то, что надо.

Для примера выложил скрины того, что надо и того, что выводит.

Из твоего предложения Лександер, понял, что в дальнейшем если захочу использовать какую нить "нестандартную" dll в проекте inno, то для этого, мне надо открыть Delphi перелопатить dll с возможностью использования стандартных типов и только после этого запихивать ее в проект inno и жить счастливо. Я прав?

[kindza811]

как мне сделать также как показано на скрине

[insombia]

kindza811 http://forum.oszone.net/post-1688320-1737.html

[Vista-w]

insombia,
Где у тебя откат установки или CheckError ?
У тебя софт ставится если даже архива arc'a для ISDone нет.

[insombia]

Vista-w откат уже есть

У тебя софт ставится если даже архива arc'a для ISDone нет.

знаешь как исправить?

[Gnom_aka_Lexander]

Из твоего предложения Лександер, понял, что в дальнейшем если захочу использовать какую нить "нестандартную" dll в проекте inno, то для этого, мне надо открыть Delphi перелопатить dll с возможностью использования стандартных типов и только после этого запихивать ее в проект inno и жить счастливо. Я прав? »

Эээ, а что бывают стандартные? dll для инно пишутся именно для того, чтобы "научить" ее вещам нестандартным.

[Megalol]

1) Как адаптировать этот скрипт

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

[Setup] AppName=MyApp AppVerName=MyApp DefaultDirName={pf}\MyApp Compression=lzma2/ultra [Files] Source: innocallback.dll; Flags: dontcopy Source: Setup\*; DestDir: {app}; Flags: recursesubdirs ignoreversion overwritereadonly; [code] type TTimerProc = procedure(HandleW, Msg, idEvent, TimeSys: LongWord); var PercentsTimer: LongWord; PercentsLabel: TLabel; function WrapTimerProc(callback: TTimerProc; Paramcount: Integer): longword; external 'wrapcallback@files:innocallback.dll stdcall'; function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): longword; external 'SetTimer@user32'; function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32 stdcall delayload'; Function NumToStr(Float: Extended): String; Begin Result:= Format('%.n', [Float]); StringChange(Result, ',', '.'); while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do SetLength(Result, Length(Result)-1); End; Procedure PercentsProc(h, msg, idevent, dwTime: Longword); Begin with WizardForm.ProgressGauge do begin PercentsLabel.Caption:= 'Выполнено ' + NumToStr((Position*100)/Max) + ' %'; end; End; procedure DeinitializeSetup(); begin KillTimer(0, PercentsTimer); end; procedure InitializeWizard(); begin PercentsLabel:= TLabel.Create(WizardForm); with PercentsLabel do begin Left:= WizardForm.ProgressGauge.Left; Top:= WizardForm.ProgressGauge.Top + WizardForm.ProgressGauge.Height + ScaleY(10); Width:= WizardForm.StatusLabel.Width; Height:= WizardForm.StatusLabel.Height; AutoSize:= False; Transparent := True; Parent:= WizardForm.InstallingPage; end; end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssInstall then begin PercentsTimer:= SetTimer(0, 0, 100, WrapTimerProc(@PercentsProc, 4)); end; end;

для юникод версии? У меня на ней проценты в минус уходят!
2) Как сделать чтобы сплэш-заставка показывалась\грузилась параллельно с самим инсталлером (все сплеши что я видел уходят в "Sleep" на время показа). И как реализовать такой сплэш (показ видео или гиф-анимации), который бы вызывался без проблем из InitializeSetup() - у меня пишет что типа WizardForm не создан - идите лесом?
3) Как убить нужный мне процесс (он выполняется парал-но с самим Инно) через 5 сек?
4) Как исправить это в черном скине Tiger на Win7. Должно быть так как напротив PotPlayer (белая стрелка слева). Цвета фона и текста менять нельзя. Только сами значки раскрытия папок?
5) Как защитить (паролем или еще как, чтобы их нельзя было спереть) временные файлы Инно (распаковываемые в папку Temp).
6) Как при нажатии определенной комбинации клавиш пропустить (то есть как-бы пролистывая стр-цы, эмулируя нажатие кнопки далее, правда проблема в том что там еще надо выбрать то что соглашаешься с лиц-зией) нужные (хотя скорее ненужные тогда :D) страницы инсталлятора (интересует страница с лицензией).

[Dark_Delphin]

Всем доброго вечера.

Подскажите пожалуйста как сделать так как вот на картинку?
Как я думаю ля начала надо убрать стандартную?



Заранее спасибо.

[No4noylis]

Как я думаю ля начала надо убрать стандартную? »

Совершенно верно, wizardform.BorderStyle:=bsNone; и стандартного не будет. Затем добавишь через ботву кнопочки какие нужны и все готово

знаешь как исправить? »

Знаю!Скорее всего в скрипте у тебя условие для запуска установки софта выглядит так: If Soft.Checked then (Soft- чекбокс, который как я думаю ты создавал), а тебе нужно написать так: If (Soft.Checked) and (ISDoneError=false) then, тогда при отмене установки, ошибки или еще чего там, софт ставиться не будет