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

Цитата:

при чём здесь Inno?

Интерфейс, выбор файла с предпросмотром (только здесь мне нужна подсказка, как примерно это можно осуществить), автозачистка временных файлов, компактность - всё в одном файле, возможность выполнять программы с ключами, без использования батников...
Стоит Borland Developer Studio 2006, но тут заморочки с временными файлами и опять же не знаю, как потом собрать все файлы в один...
Autoit может быть для этих целей само то, но надо его учить с нуля, а в inno уже просто есть опыт...
Или может кто подкажет стандартную команду вызова диалога выбора графического файла, желательно с применённым фильтром (прога поддерживает только bmp и jpeg), тогда попробую сделать через, например Enigma Virtual Box...

YURSHAT
буду ждать результатов допиливания от тебя. огромное спасибо за работу.
P.S. Кстати в AIMP 3 заметил прозрачные края в Windows XP. Был приятно удивлен этим. Надеюсь и для XP можно сделать прозрачность в инсталлах.

Цитата:

Помню тут как-то отдавали библиотеку на доработку, чтобы в XP тоже можно было делать прозрачные инсталлы. Её доделали и где взять? Заранее спасибо за ответы.

Сам модуль готов, т.е все функции переписаны под инно, но надо писать примеры

Версия Модульного скрипта 4.8

[more=Описание]

Главное меню:
-------------
Новый модуль
Управление модулями.

Слайды:
-------
Слайд Шоу можно теперь ставить на паузу.
Слайды теперь можно листать вперёд и назад.
Индикатор слайдов.
Отключает Видео. Для использования окна Слайд Шоу.

Звуки:
------
Проигрывание через комманды MCI. (WAV)
Возможность включать и отключать звуковые эффекты.

Видео:
------
Проигрывание через комманды MCI. (Для проигрывания AVI нужен модуль XVID)
Пауза и Воспроизведение
Перемотка видео вперёд и назад.
Остановка видео и закрытие окна Видео.
Индикатор воспризведения Видео.
Ставит Слайд Шоу на паузу. Для использования окна Видео.
Ставит Музыку на паузу, чтобы не было наложения звука.

Музыка:
-------
Проигрывание через комманды MCI. (MP3)
Пауза и Воспроизведение
Ставит Видео на паузу, чтобы не было наложения звука.

Установка:
----------
Мини Инсталл или Обычная установка
Подробная или Обычная установка

Авторун
-------
Медиа Авторун - при поддержке модуля Медиа.
Авторун теперь определяет установленную игру по уникальному пути.

Сплэш-заставка:
---------------
Вывод Сплэш-заставки перед запуском установки.

[/more]

Скачать

sjwrec

Спасибо!!

my94 16:45 24-03-2012
Цитата:

Народ может кто подскажет нашел скрипт Сatalyst

Я лично помогать не буду, да и думаю многие остальные тоже.

my94 16:45 24-03-2012
Цитата:

И ещё как здесь в спойлер свернуть текст?

Скрипт под тег [no][more][/more][/no]

my94
Вот ты клоун, правила для кого написаны? В правилах и собственно и написано какой тэг нужно использовать.

Shegorat
Я имею ввиду этот скрипт: http://depositfiles.com/files/4becgicj2

my94
Ну для таких как ты в шапке темы есть ссылка Правила топика посвященному Inno Setup. И там вполне ясно написано что и как использовать.

А как поменять цвет прогресс бара ISDone

подскажите как исправить ошибку в IsSlideShow. На финишной странице появляются ошибки [more=скрин] [/more]. В примере автора эта ошибка тоже присутствует.

alex0413

впиши этот код снизу с заменой

KillTimer(0, TimerID);
DeinitializeSlideShow;
WizardForm.ProgressGauge.visible:=false;

MOD_TEC
спасибо, не хватало киллтаймера на странице финиша, я както это из виду упускал...

Ребята а у всех начало ругатся на Unknown type 'PChar'
Не пойму не чего чего оно начало ругаться в скриптах не чего не трогал Inno не обновлял
[more][Files]
Source: D:\Диск\Докукменты\Files\BASS.dll; DestDir: {tmp}; Flags: dontcopy noencryption
Source: D:\Диск\Докукменты\Files\Music.mp3; DestDir: {tmp}; Flags: dontcopy noencryption nocompression
Source: D:\Диск\Докукменты\Files\MusicButtons.bmp; DestDir: {tmp}; Flags: dontcopy noencryption

[Code]
const
BASS_ACTIVE_STOPPED = 0;
BASS_ACTIVE_PLAYING = 1;
BASS_ACTIVE_STALLED = 2;
BASS_ACTIVE_PAUSED = 3;
BASS_SAMPLE_LOOP = 4;

var
mp3Handle: HWND;
mp3Name: String;
PlayButton, PauseButton, StopButton: TPanel;
PlayImage, PauseImage, StopImage: TBitmapImage;
PlayLabel, PauseLabel, StopLabel: TLabel;

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean;
external 'BASS_Init@files:BASS.dll stdcall delayload';

function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): DWORD;
external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';

function BASS_Start(): Boolean;
external 'BASS_Start@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean;
external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_ChannelIsActive(handle: DWORD): Integer;
external 'BASS_ChannelIsActive@files:BASS.dll stdcall delayload';

function BASS_ChannelPause(handle: DWORD): Boolean;
external 'BASS_ChannelPause@files:BASS.dll stdcall delayload';

function BASS_Stop(): Boolean;
external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Pause(): Boolean;
external 'BASS_Pause@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
external 'BASS_Free@files:BASS.dll stdcall delayload';

procedure PlayMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if PlayLabel.Enabled then PlayImage.Left := -90
end;

procedure PlayMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PlayImage.Left := 0
end;

procedure PauseMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if PauseLabel.Enabled then PauseImage.Left := -120
end;

procedure PauseMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PauseImage.Left := -30
end;

procedure StopMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if StopLabel.Enabled then StopImage.Left := -150
end;

procedure StopMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
StopImage.Left := -60
end;

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('BASS.dll')
ExtractTemporaryFile('Music.mp3')
mp3Name := ExpandConstant('{tmp}\Music.mp3')
BASS_Init(-1, 44100, 0, 0, 0)
// Музыка начинает проигрываться при запуске инсталла:
mp3Handle := BASS_StreamCreateFile(FALSE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP)
// Музыка начинает проигрываться только после нажатия кнопки "Play" ("Воспроизведение"):
// mp3Handle := BASS_StreamCreateFile(TRUE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP)
BASS_Start()
BASS_ChannelPlay(mp3Handle, False)
Result := True
end;

procedure PlayButtonOnClick(Sender: TObject);
begin
case BASS_ChannelIsActive(mp3Handle) of
BASS_ACTIVE_PAUSED:
begin
BASS_ChannelPlay(mp3Handle, False)
end
BASS_ACTIVE_STOPPED:
begin
BASS_Init(-1, 44100, 0, 0, 0)
mp3Handle := BASS_StreamCreateFile(FALSE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP)
BASS_Start()
BASS_ChannelPlay(mp3Handle, False)
end
end
end;

procedure PauseButtonOnClick(Sender: TObject);
begin
BASS_ChannelPause(mp3Handle)
end;

procedure StopButtonOnClick(Sender: TObject);
begin
BASS_Stop()
BASS_Free()
end;

procedure InitializeMusic();
begin
ExtractTemporaryFile('MusicButtons.bmp')

PlayButton := TPanel.Create(WizardForm)
PlayButton.Left := 33
PlayButton.Top := 284
PlayButton.Width := 30
PlayButton.Height := 20
PlayButton.Cursor := crHand
PlayButton.ShowHint := True
PlayButton.Hint := 'Воспроизведение музыки'
PlayButton.OnClick := @PlayButtonOnClick
PlayButton.Parent := WizardForm

PlayImage := TBitmapImage.Create(WizardForm)
PlayImage.Left := 0
PlayImage.Top := 0
PlayImage.Width := 180
PlayImage.Height := 20
PlayImage.Enabled := False
PlayImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicButtons.bmp'))
PlayImage.Parent := PlayButton

PlayLabel := TLabel.Create(WizardForm)
PlayLabel.Width := PlayButton.Width
PlayLabel.Height := PlayButton.Height
PlayLabel.Autosize := False
PlayLabel.Transparent := True
PlayLabel.OnClick := @PlayButtonOnClick
PlayLabel.OnMouseDown := @PlayMouseDown
PlayLabel.OnMouseUp := @PlayMouseUp
PlayLabel.Parent := PlayButton

PauseButton := TPanel.Create(WizardForm)
PauseButton.Left := 66
PauseButton.Top := 284
PauseButton.Width := 30
PauseButton.Height := 20
PauseButton.Cursor := crHand
PauseButton.ShowHint := True
PauseButton.Hint := 'Приостановить музыку'
PauseButton.OnClick := @PauseButtonOnClick
PauseButton.Parent := WizardForm

PauseImage := TBitmapImage.Create(WizardForm)
PauseImage.Left := -30
PauseImage.Top := 0
PauseImage.Width := 180
PauseImage.Height := 20
PauseImage.Enabled := False
PauseImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicButtons.bmp'))
PauseImage.Parent := PauseButton

PauseLabel := TLabel.Create(WizardForm)
PauseLabel.Width := PauseButton.Width
PauseLabel.Height := PauseButton.Height
PauseLabel.Autosize := False
PauseLabel.Transparent := True
PauseLabel.OnClick := @PauseButtonOnClick
PauseLabel.OnMouseDown := @PauseMouseDown
PauseLabel.OnMouseUp := @PauseMouseUp
PauseLabel.Parent := PauseButton

StopButton := TPanel.Create(WizardForm)
StopButton.Left := 99
StopButton.Top := 284
StopButton.Width := 30
StopButton.Height := 20
StopButton.Cursor := crHand
StopButton.ShowHint := True
StopButton.Hint := 'Остановить музыку'
StopButton.OnClick := @StopButtonOnClick
StopButton.Parent := WizardForm

StopImage := TBitmapImage.Create(WizardForm)
StopImage.Left := -60
StopImage.Top := 0
StopImage.Width := 180
StopImage.Height := 20
StopImage.Enabled := False
StopImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicButtons.bmp'))
StopImage.Parent := StopButton

StopLabel := TLabel.Create(WizardForm)
StopLabel.Width := StopButton.Width
StopLabel.Height := StopButton.Height
StopLabel.Autosize := False
StopLabel.Transparent := True
StopLabel.OnClick := @StopButtonOnClick
StopLabel.OnMouseDown := @StopMouseDown
StopLabel.OnMouseUp := @StopMouseUp
StopLabel.Parent := StopButton
end;

procedure DeinitializeSetup();
begin
BASS_Stop()
BASS_Free()
end;
[/more]

viktor9
Если перешел на юникод, то замени PChar на PAnsiChar. В анси PChar все так-же работает.
Цитата:

Inno не обновлял

Однозначно, если не обновлял, то переустановливал с Анси на Юникод.

Люди помогите создать RePack эмулятора PCSX2 и Dolphin

сайт repack.at.ua переходит на платный хостинг и движок DLE. Все кто хочет принять участие в его развитии пишите в скайп vasya.vishnovsky

Прошу протестировать библиотеку ISForm.dll --- Скачать
Не много о библиотеке: Это библиотека загружает нарисованную картинку для формы.
ЗЫ1: Думаю так сильно не будете критиковать =)
ЗЫ2: Интересует как ISForm поведет себя на системе Win XP, ну и на других тоже...

Сосер напиши мне в скайп

на iswin7.dll можно поцепить png изображения на стекло?
пробовал делать через iswin7logo.dll, но мне не нужна прозрачность всей формы

vintage_1
У меня Windows 7 - не работает сворачивание в трей. Сворачивается инсталл а форма остаётся.
И ещё нет кнопки Свернуть, а это большой минус. Так что дорабатывайте.

Цитата:

пробовал делать через iswin7logo.dll, но мне не нужна прозрачность всей формы

Что значит прозрачность всей формы? Там указывается в скрипте какую область делать прозрачной.

Цитата:

Там указывается в скрипте какую область делать прозрачной.

ISWin7_Apply(ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(50), 0, 0, 0, -1, WizardForm.Handle);

изменение параметров ничего не меняет

Как сделать чтобы при отмене установки запускался деинсталятор и выполнил функцию отката установки....

Цитата:

ISWin7_Apply(ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(50), 0, 0, 0, -1, WizardForm.Handle);

ISWin7_Apply(ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(50), 0, 0, 0, 47, WizardForm.Handle);

R3Pa4eK, спс, я балбес

sjwrec
Спасибо, за тест! Так раз борюсь с сворачиванием формы, все баги устранил/убрал..

vintage_1
Вы смотрели мой модульный скрипт, на 184-й странице.

sjwrec
Да, вы молодец!