Скрипты Inno Setup. Помощь и советы [часть 7]

[Антон_Мураткин@vk]

Ребят ну подскажите как тень сделать для текста? По примеру Shift85 тень появляется на всех страницах. Заранее благодарю.

[habib2302]

всем привет. как выполнить установку драйверов .sys разной битности?

[ne-dm]

Как вывести надпись здесь?
http://jpegshare.net/thumbs/6f/29/6f29fad424e635caf8696987ff9261e5.jpg (http://jpegshare.net/6f/29/6f29fad424e635caf8696987ff9261e5.png.html)

[habib2302]

ne-dm, [Messages]
BeveledLabel=BurnAware

[saneksanek]

ROMKA-1977, Поспешил с выводами,работать работает без данного кода.

[Dodakaedr]

habib2302, а IsWin64 и not IsWin64 не подходит?

[Shift85]

Как это исправить? »
Антон_Мураткин@vk, На нужной странице скрой лейблы.

WelcomeLabel1.Hide;
WelcomeLabel2.Hide;

[Антон_Мураткин@vk]

Shift85, Да они и так скрыты. Открытия тоже не чего не даёт

[Shift85]

Как вывести надпись здесь? »
ne-dm, Вот пример. Можно изменить также цвет лейбла.

[habib2302]

ne-dm, можно и так
[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program

[Messages]
BeveledLabel= Copyright 2007 © Microsoft

[ Code]
procedure BevelLabelClick(Sender: TObject);
var ErrorCode: Integer;
begin
ShellExec('open','http://www.innosetup.com','', '', SW_SHOW, ewNoWait, ErrorCode)
end;

procedure InitializeWizard();
begin
with WizardForm do begin
with BeveledLabel do begin
OnClick:=@BevelLabelClick;
Font.Color:=clBlue;
Enabled:=True;
Cursor:=crHand;
end;
end;
end;

[Mat_y]

А Inno может ставить расширения в браузеры... в Хром там, Оперу или огнелиса? Если да, то где код бы посмотреть?

[Kashtan007]

Всем привет.
Как сделать эти серые окна прозрачные?
http://rghost.ru/55222907/image.png
Чтобы было видно задний фон. Но при этом прозрачные оставались только серые окна, а текст на них и все остальное было видно.

[Dodakaedr]

Kashtan007, Зайдите в папку Inno Setup Ultra\Dll Examples\IsWin7 [dwmEnabled] и там найдете подходящий (так думаю) вам пример.

Mat_y, пример ассоциация файлов формата .ext1, .ext2, .ext3 с программой notepad.exe:
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
ChangesAssociations=yes

[Tasks]
Name: MostVideo; Description: "Most Video Files "; GroupDescription: Associate Video Files:
Name: MostVideo\DiracVideo; Description: Dirac; GroupDescription: Associate Video Files:
Name: MostVideo\AviVideo; Description: AVI; GroupDescription: Associate Video Files:
Name: MostVideo\MP4Video; Description: MP4; GroupDescription: Associate Video Files:


[Registry]
; .ext1
Root: HKCR; Subkey: .ext1; ValueType: string; ValueName: ; ValueData: MyProgramFile1; Flags: uninsdeletevalue; Tasks: MostVideo\DiracVideo;
Root: HKCR; Subkey: MyProgramFile1; ValueType: string; ValueName: ; ValueData: "My Program File ?1"; Flags: uninsdeletekey; Tasks: MostVideo\DiracVideo
Root: HKCR; Subkey: MyProgramFile1\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\DiracVideo
Root: HKCR; Subkey: MyProgramFile1\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\DiracVideo
; .ext2
Root: HKCR; Subkey: .ext2; ValueType: string; ValueName: ; ValueData: MyProgramFile2; Flags: uninsdeletevalue; Tasks: MostVideo\AviVideo;
Root: HKCR; Subkey: MyProgramFile2; ValueType: string; ValueName: ; ValueData: "My Program File ?2"; Flags: uninsdeletekey; Tasks: MostVideo\AviVideo
Root: HKCR; Subkey: MyProgramFile2\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\AviVideo
Root: HKCR; Subkey: MyProgramFile2\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\AviVideo
; .ext3
Root: HKCR; Subkey: .ext3; ValueType: string; ValueName: ; ValueData: MyProgramFile3; Flags: uninsdeletevalue; Tasks: MostVideo\MP4Video;
Root: HKCR; Subkey: MyProgramFile3; ValueType: string; ValueName: ; ValueData: "My Program File ?3"; Flags: uninsdeletekey; Tasks: MostVideo\MP4Video
Root: HKCR; Subkey: MyProgramFile3\DefaultIcon; ValueType: string; ValueName: ; ValueData: {sys}\notepad.exe,0; Tasks: MostVideo\MP4Video
Root: HKCR; Subkey: MyProgramFile3\shell\open\command; ValueType: string; ValueName: ; ValueData: """{sys}\notepad.exe"" ""%1"""; Tasks: MostVideo\MP4Video

[Kashtan007]

Dodakaedr, к сожалению. По данному пути такого нету. Не могли бы вы скинуть пример? Буду очень благодарен.

[Dodakaedr]

к сожалению. По данному пути такого нету. Не могли бы вы скинуть пример? Буду очень благодарен. »
А по такому Inno Setup 5\Dll Examples\IsWin7 [0.5]? У вас Ultra сборка?
Пробуйте [Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
Compression=lzma
SolidCompression=yes
OutputDir=.

[Files]
Source: compiler:Dll Pack\iswin7.dll; Flags: dontcopy

[.Code]
procedure iswin7_add_glass(Handle:HWND; Left, Top, Right, Bottom : Integer; GDIPLoadMode: boolean); external 'iswin7_add_glass@files:iswin7.dll stdcall';
procedure iswin7_add_button(Handle:HWND); external 'iswin7_add_button@files:iswin7.dll stdcall';
procedure iswin7_free; external 'iswin7_free@files:iswin7.dll stdcall';

procedure InitializeWizard();
begin
// Необходимо добавлять каждую кнопку расположенную на стекле
// до инициализации стекла для того что бы не было дыр ))
iswin7_add_button(WizardForm.BackButton.Handle);
iswin7_add_button(WizardForm.NextButton.Handle);
iswin7_add_button(WizardForm.CancelButton.Handle);
// Параметр True не трогать он для htuos ))
iswin7_add_glass(WizardForm.Handle, 0, 0, 0, 47, True);
end;

procedure DeinitializeSetup();
begin
iswin7_free;
end;

[Shift85]

Как сделать эти серые окна прозрачные? »
Kashtan007, Вот.

[diman_21Ru]

Имеется скрипт на переключения языков с русского на английский , украинский но есть одна проблема обратно не возвращает на русский , получается как бы баг вот скрипт посмотрите : http://rghost.ru/55424206

[nik1967]

diman_21Ru, [setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}
ShowLanguageDialog=auto

[Languages]
Name: "eng"; MessagesFile: "compiler:Languages\English.isl"
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "ukr"; MessagesFile: "compiler:Languages\Ukrainian.isl"

[CustomMessages]
; Русский
rusButtonBack=< &Назад
rusButtonNext=&Далее >
rusButtonCancel=Отмена
rusSetupWindowTitle=Установка — %1
rusWelcomeLabel1=Вас приветствует Мастер установки %1
rusWelcomeLabel2=Программа установит %1, версия %2 на Ваш компьютер.%n%nРекомендуется закрыть все прочие приложения перед тем, как продолжить.%n%nНажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти из программы установки.

; English
engButtonBack=< &Back
engButtonNext=&Next >
engButtonCancel=Cancel
engSetupWindowTitle=Setup — %1
engWelcomeLabel1=Welcome to the %1 Setup Wizard
engWelcomeLabel2=This will install %1 version %2 on your computer.%n%nIt is recommended that you close all other applications before continuing.%n%nClick Next to continue, or Cancel to exit Setup.

; Ukrainian
ukrButtonBack=< &Назад
ukrButtonNext=&Далi >
ukrButtonCancel=Cкасування
ukrSetupWindowTitle=Встановити — %1
ukrWelcomeLabel1=Вас вітає Майстер установки %1
ukrWelcomeLabel2=Програма встановить %1, версія %2 на Ваш комп'ютер.%n%nРекомендуємо закрити всі інші програми перед тим, як продовжити.%n%nНатисніть «Далі», щоб продовжити, або «Скасувати», щоб вийти з програми установки.

[ Code]
var
lang: String;
langBtn: TButton;

procedure ChangeLang();
begin
WizardForm.BackButton.Caption:= CustomMessage(lang+'ButtonBack');
WizardForm.NextButton.Caption:= CustomMessage(lang+'ButtonNext');
WizardForm.CancelButton.Caption:= CustomMessage(lang+'ButtonCancel');
WizardForm.Caption:= FmtMessage(CustomMessage(lang+'SetupWindowTitle'), ['{#SetupSetting('AppName')}']);
WizardForm.WelcomeLabel1.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel1'), ['{#SetupSetting('AppName')}']);
WizardForm.WelcomeLabel2.Caption:= FmtMessage(CustomMessage(lang+'WelcomeLabel2'), ['{#SetupSetting('AppName')}', '{#SetupSetting('AppVersion')}']);
end;

procedure LangBtnClick(Sender: TObject);
begin
if lang='rus' then begin
lang:= 'eng';
langBtn.Caption:= 'ukr';
end else
if lang='eng' then begin
lang:= 'ukr';
langBtn.Caption:= 'rus';
end else
if lang='ukr' then begin
lang:= 'rus';
langBtn.Caption:= 'eng';
end;
ChangeLang();
end;

procedure InitializeWizard;
begin
langBtn:= TButton.Create(WizardForm);
with langBtn do begin
SetBounds(10,WizardForm.CancelButton.Top,30,WizardForm.CancelButton.Height)
OnClick:= @LangBtnClick;
Parent:= WizardForm;
end;

if ActiveLanguage='rus' then begin
lang:= 'rus';
langBtn.Caption:= 'eng';
end;
end;

[Irenis]

Уважаемые форумчане! подскажите пожалуйста.
При компилировании происходит ошибка:

CallBack:=WrapMyCallback(@ProgressCallback,2);
Cancel:=0;
OveralPct:=0;

Ошибка в первой строчке, т.е тут: CallBack:=WrapMyCallback(@ProgressCallback,2);

С чем это может быть связано? Буду рада, если кто то подскажет))

Напишу, что мне вообще нужно. Пытаюсь научиться создавать установщики. Сейчас пробую сделать установщик игры Panzar. Я совсем новичек в этом деле. В общем, читала различные уроки, которые нашла в инете. Скачала видео-урок, по примеру этого урока создала скрипт, вроде бы все делаю, как там сказано, но вот почему то при компиляции появляется ошибка. Возможно кто нибудь поможет разобраться что не так? Может у кого то есть возможность через TeamViewer все показать? Буду очень благодарна, так как каждый день пытаюсь создать этот установщик, но пока не получается.

Мой скайп irenna-85. Спасибо тому, кто откликнется))

[Shift85]

Irenis, Скрипт покажите. (Залейте куда нибудь на файлообменник)