» Inno Setup (создание инсталяционных пакетов)
Цитата:
http://rghost.ru/17399811
У меня не работает нужно обязательно ту прогу запускать что оно работало или как?
подскажите, как сделать чтоб нормально отображалось? Вот скрин http://i056.radikal.ru/1108/be/3bbcafa24050.jpg botva2 наверно не будит работать вместе с iswin7? и после свертывания и розвертывания окна, картинка пропадает, и заместь нее черный квадрат, но прозрачность работает нормально.
Люди, помогите пожалуйста. Как сделать фоновую картинку, как в скрипте NFS Undercover от YURSHAT? Напишите, пожалуйста именно данный скрипт. Или если у кого-нибудь остался урезанный установщик от nik1967, выложите, пожалуйста (nik вырезал там музыку, слайд шоу и озвучку кнопок).
Цитата:
как двигать шрифт на кнопках подскажите пожалуйста
Ты сам понял что сказал?Может ты имел ввиду чтобы на кнопках тоже был шрифт такой же как и в инсталяторе?
Percey123
http://rghost.ru/4554038 Это?
Добавлено:
insombia
НЭТ он имел в виду название кнопки двигать.
http://rghost.ru/4554038 Это?
Добавлено:
insombia
НЭТ он имел в виду название кнопки двигать.
insombia
Ты сам понял что сказал?Может ты имел ввиду чтобы на кнопках тоже был шрифт такой же как и в инсталяторе?
я то понял что сказал это просто ты не правельно прочитал
ALExey1995
Цитата:
угу так кто знает кто поможет
Ты сам понял что сказал?Может ты имел ввиду чтобы на кнопках тоже был шрифт такой же как и в инсталяторе?
я то понял что сказал это просто ты не правельно прочитал
ALExey1995
Цитата:
insombia
НЭТ он имел в виду название кнопки двигать.
угу так кто знает кто поможет
crysis1830
Научись цитировать правильно посты других людей.
Цитата:
Это, наверное, из серии: "Казнить нельзя помиловать".
Научись цитировать правильно посты других людей.
Цитата:
я то понял что сказал это просто ты не правельно прочитал
Это, наверное, из серии: "Казнить нельзя помиловать".
Есть следующая задача:
2 типа инсталяции - сетевая и локальная.
Можно ли как-то давать в этих типах инсталяции выбирать, что ставить, а что не ставить?
Не дает у двух типов установить iscustom флаг
2 типа инсталяции - сетевая и локальная.
Можно ли как-то давать в этих типах инсталяции выбирать, что ставить, а что не ставить?
Не дает у двух типов установить iscustom флаг
salexn1
[more=вот посмотри пример][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Files]
;Source: Network.txt; DestDir: {app}; Check: RadioButtonNetwork
;Source: local.txt; DestDir: {app}; Check: RadioButtonlocal
[CustomMessages]
Myver=Выбор Сети
Network=Сетевая
local=Локальная
[Code]
var
Label1: TLabel;
Network: TNewRadioButton;
local: TNewRadioButton;
function RadioButtonNetwork(): Boolean;
begin
Result:= Network.Checked;
end;
function RadioButtonlocal(): Boolean;
begin
Result:= local.Checked;
end;
procedure RedesignWizardForm;
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm.SelectDirPage;
Caption := ExpandConstant('{cm:Myver}');
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(120);
Width := ScaleX(95);
Height := ScaleY(13);
end;
{ Network }
Network := TNewRadioButton.Create(WizardForm);
with Network do
begin
Name := 'Network';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(24);
Top := ScaleY(136);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := ExpandConstant('{cm:Network}');
Checked := True;
end;
{ local }
local := TNewRadioButton.Create(WizardForm);
with local do
begin
Name := 'local';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(24);
Top := ScaleY(160);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := ExpandConstant('{cm:local}');
end;
Network.TabOrder := 5;
local.TabOrder := 6;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;[/more]
[more=вот посмотри пример][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Files]
;Source: Network.txt; DestDir: {app}; Check: RadioButtonNetwork
;Source: local.txt; DestDir: {app}; Check: RadioButtonlocal
[CustomMessages]
Myver=Выбор Сети
Network=Сетевая
local=Локальная
[Code]
var
Label1: TLabel;
Network: TNewRadioButton;
local: TNewRadioButton;
function RadioButtonNetwork(): Boolean;
begin
Result:= Network.Checked;
end;
function RadioButtonlocal(): Boolean;
begin
Result:= local.Checked;
end;
procedure RedesignWizardForm;
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Name := 'Label1';
Parent := WizardForm.SelectDirPage;
Caption := ExpandConstant('{cm:Myver}');
Transparent := False;
Left := ScaleX(24);
Top := ScaleY(120);
Width := ScaleX(95);
Height := ScaleY(13);
end;
{ Network }
Network := TNewRadioButton.Create(WizardForm);
with Network do
begin
Name := 'Network';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(24);
Top := ScaleY(136);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := ExpandConstant('{cm:Network}');
Checked := True;
end;
{ local }
local := TNewRadioButton.Create(WizardForm);
with local do
begin
Name := 'local';
Parent := WizardForm.SelectDirPage;
Left := ScaleX(24);
Top := ScaleY(160);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := ExpandConstant('{cm:local}');
end;
Network.TabOrder := 5;
local.TabOrder := 6;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;[/more]
vint56
Спасибо, буду дальше разбираться
З.Ы.
А проще нет вариантов? Что не кодить?
Спасибо, буду дальше разбираться
З.Ы.
А проще нет вариантов? Что не кодить?
salexn1 стандартными средствами
[more][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Files]
Source: Network.txt; DestDir: {app}; Components: Network\Network
Source: local.txt; DestDir: {app}; Components: Network\local
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: Network; Description: Выбор Сети; Types: full; Flags: fixed
Name: Network\Network; Description: Сетевая; Flags: exclusive
Name: Network\local; Description: Локальная; Flags: exclusive
[Code]
procedure InitializeWizard();
begin
with WizardForm.ComponentsList do
begin
Height := ScaleY(60); // задается размер компонент листа
end;
end;[/more]
[more][Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Files]
Source: Network.txt; DestDir: {app}; Components: Network\Network
Source: local.txt; DestDir: {app}; Components: Network\local
[Types]
Name: full; Description: Full installation; Flags: iscustom
[Components]
Name: Network; Description: Выбор Сети; Types: full; Flags: fixed
Name: Network\Network; Description: Сетевая; Flags: exclusive
Name: Network\local; Description: Локальная; Flags: exclusive
[Code]
procedure InitializeWizard();
begin
with WizardForm.ComponentsList do
begin
Height := ScaleY(60); // задается размер компонент листа
end;
end;[/more]
Как сделать чтобы в Isexec когда указываешь папку с архивом и делаешь установку чтобы файлов setup-1a.bin и так далее не было а просто твой созданный архив и файл setup.exe?
insombia
DiskSpanning
как бы справка рулит
DiskSpanning
как бы справка рулит
Доброго времени суток! Хочу сделать музыку в инстале, точнее сделал, но мне необходимо скрыть кнопочку (Воспроизвести-Пауза) на страницах приветствия и завершении установки... Помогите написать необходимую строчку этого скрипта вот и сам исходный код...
ALExey1995
Не совсем, но спасибо.
Не совсем, но спасибо.
crysis1830
Обрати внимание на procedure BtnSetTextAlignment в botva2.iss
Код: procedure BtnSetTextAlignment(h :HWND; HorIndent, VertIndent :integer; Alignment WORD); external 'BtnSetTextAlignment@{tmp}\botva2.dll stdcall delayload';
//устанавливает выравнивание текста на кнопке
//h - хэндл кнопки (результат возвращенный BtnCreate)
//HorIndent - горизонтальный отступ текста от края кнопки
//VertIndent - вертикальный отступ текста от края кнопки
//Alignment - выравнивание текста. задается константами balLeft, balCenter, balRight, balVCenter,
// или комбинацией balVCenter с остальными. например, balVCenter or balRight
Обрати внимание на procedure BtnSetTextAlignment в botva2.iss
Код: procedure BtnSetTextAlignment(h :HWND; HorIndent, VertIndent :integer; Alignment WORD); external 'BtnSetTextAlignment@{tmp}\botva2.dll stdcall delayload';
//устанавливает выравнивание текста на кнопке
//h - хэндл кнопки (результат возвращенный BtnCreate)
//HorIndent - горизонтальный отступ текста от края кнопки
//VertIndent - вертикальный отступ текста от края кнопки
//Alignment - выравнивание текста. задается константами balLeft, balCenter, balRight, balVCenter,
// или комбинацией balVCenter с остальными. например, balVCenter or balRight
Такой вопрос. Как можно сделать окно в инсталяторе без границ.
Использовать для этого ф-ю
SetWindowLong(WizardForm.handle, GWL_STYLE, GetWindowLong(WizardForm.handle, GWL_STYLE)and(not WS_MAXIMIZEBOX));
Какие параметры для нее указать?
И еще такое. Окно которое появляется при отмене инсталляции, Выход из программы установки, Как оно в инно именуется? Хочу и его внешний вид изменить.
Использовать для этого ф-ю
SetWindowLong(WizardForm.handle, GWL_STYLE, GetWindowLong(WizardForm.handle, GWL_STYLE)and(not WS_MAXIMIZEBOX));
Какие параметры для нее указать?
И еще такое. Окно которое появляется при отмене инсталляции, Выход из программы установки, Как оно в инно именуется? Хочу и его внешний вид изменить.
У меня возник вопрос: есть строка кода ScaleX(593), ScaleY(96), ScaleX(114), ScaleY(20). В общем, если ScaleX(593), ScaleY(96) регулируют горизотнальность-вертикальность, то зачем тогда нужно ScaleX(114), ScaleY(20)?
Percey123
Длина и высота.
Длина и высота.
Robkovich
Спасибо, теперь ясно.
Спасибо, теперь ясно.
такая проблема растянул форму, хочу растянуть картинку. использую:
WizardForm.WizardBitmapImage.Width:= ScaleX(547);
WizardForm.WizardBitmapImage2.Width:= ScaleX(547);
но картинка как была шириной в 497 так и осталась, как же все таки ее растянуть?
WizardForm.WizardBitmapImage.Width:= ScaleX(547);
WizardForm.WizardBitmapImage2.Width:= ScaleX(547);
но картинка как была шириной в 497 так и осталась, как же все таки ее растянуть?
Sergey_Demchuk
Цитата:
Может так? http://rghost.ru/17734121
Цитата:
Такой вопрос. Как можно сделать окно в инсталяторе без границ.
Использовать для этого ф-ю
SetWindowLong(WizardForm.handle, GWL_STYLE, GetWindowLong(WizardForm.handle, GWL_STYLE)and(not WS_MAXIMIZEBOX));
Какие параметры для нее указать?
Может так? http://rghost.ru/17734121
Цитата:
И еще такое. Окно которое появляется при отмене инсталляции, Выход из программы установки, Как оно в инно именуется? Хочу и его внешний вид изменить.
Типо этого ...
Sergey_Demchuk
Цитата:
Чуть про это не забыл... При отладке оказалось что сообщение выводится с помощью функции MessageBox, если хотите изменить текст сообщения создайте событие на нажатие кнопки Cancel, если внешний вид, то для этого есть скины.
Добавлено:
Despofix
Цитата:
Я попробовал растянуть картинку на большой форме, но больше 500x500 не растянулась, думаю нужно использоваь плагины.
Цитата:
И еще такое. Окно которое появляется при отмене инсталляции, Выход из программы установки, Как оно в инно именуется? Хочу и его внешний вид изменить.
Чуть про это не забыл... При отладке оказалось что сообщение выводится с помощью функции MessageBox, если хотите изменить текст сообщения создайте событие на нажатие кнопки Cancel, если внешний вид, то для этого есть скины.
Добавлено:
Despofix
Цитата:
такая проблема растянул форму, хочу растянуть картинку. использую:
WizardForm.WizardBitmapImage.Width:= ScaleX(547);
WizardForm.WizardBitmapImage2.Width:= ScaleX(547);
но картинка как была шириной в 497 так и осталась, как же все таки ее растянуть?
Я попробовал растянуть картинку на большой форме, но больше 500x500 не растянулась, думаю нужно использоваь плагины.
bugron
пришлось по другому сделать. но теперь все лэйблы прогрессбары придется вручную прописывать
пришлось по другому сделать. но теперь все лэйблы прогрессбары придется вручную прописывать
Помогите пожалуйста подправить скрипт (http://rghost.ru/17775491)
Есть "несколько" моментов, которые не удаеться реализовать...
Убрать иконку в левом верхнем углу
Убрать текст с welcom page и finished page
Почему-то не работает directx...
Хотелось бы прикрутить фриарк, но чтобы было написано "распаковка архивов", прогресс бар продвигался нормально (как при "стандартном" сжатии), показано сколько % прошло и не было написано "Распаковывается архив 1 из 1" (как это бывает часто)
Ярлыки должны создаваться после распаковки архивов
Также сделать чтобы во время распаковки кнопка отмена была не активна
Есть "несколько" моментов, которые не удаеться реализовать...
Убрать иконку в левом верхнем углу
Убрать текст с welcom page и finished page
Почему-то не работает directx...
Хотелось бы прикрутить фриарк, но чтобы было написано "распаковка архивов", прогресс бар продвигался нормально (как при "стандартном" сжатии), показано сколько % прошло и не было написано "Распаковывается архив 1 из 1" (как это бывает часто)
Ярлыки должны создаваться после распаковки архивов
Также сделать чтобы во время распаковки кнопка отмена была не активна
Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177
Предыдущая тема: поиск
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.