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

[El Sanchez]

можно поподробнее? уже весь гугл облазил, так и не нашёл ничего интересного »
Rikill, можно. CheckForMutexes заменил на CreateMutex, а то я забыл, что не отрабатывает :).

[Setup]
AppMutex=MyProgramMutexUniqueName

[Code]
procedure InitializeWizard();
begin
CreateMutex('MyProgramMutexUniqueName');
end;

P.S. Имя мьютекса регистрозависимо.

[leshcat]

Как избавится от сообщения общего веса файлов?
http://img691.imageshack.us/img691/8638/capture2yde.png (http://imageshack.us/photo/my-images/691/capture2yde.png/)

[VinTagE]

Как избавится от сообщения общего веса файлов? »
Можно так:
WizardForm.ComponentsDiskSpaceLabel.Hide;

[El Sanchez]

Можно так:
WizardForm.ComponentsDiskSpaceLabel.Hide; »
leshcat, или так:

[Messages]
ComponentsDiskSpaceMBLabel=

[tiestos]

Как сделать чтобы в прозрачносте картинка была чёткой по краям как тут
http://i24.fastpic.ru/big/2011/0706/72/8cdbce674ba8d0d55637c1a199747572.jpg
у нас так, как исправить
http://i24.fastpic.ru/big/2011/0706/b4/1dc71a22c45eba8059195703afdc67b4.jpg

[Rikill]

есть специальная библиотека Fairy.dll поищи её в гугле

[Dark_Delphin]

Rikill, Меня тоже интерисует этот вопрос.
А пример скрипта есть?

[VinTagE]

Меня тоже интерисует этот вопрос.
А пример скрипта есть? »
Есть вот примеры:
Скачать (http://rghost.ru/13692311)

Как сделать чтобы в прозрачносте картинка была чёткой по краям как тут »
Вот держи пример с библиотекой Fairy.dll
Скачать (http://rghost.ru/13692981)

[frion]

Цитировать »

хотелось бы узнать как сделали этот фрагмент прозранчным (пост выше "fairy.dll" не понял ни фига)

[Rikill]

frion, а чего непонятного? там всё расписано
хотелось бы узнать как сделали этот фрагмент прозранчным »
если правильно понял то тебе надо ISWin 7 из шапки http://www.datafilehost.com/download-0dfe2a07.html

[frion]

Ребята вот мой скрипт

#define MyAppName "Game"
[Setup]
AppName={#MyAppName}
AppVerName={#MyAppName}
DefaultDirName={pf}\{#MyAppName}
WizardImageFile=C:\fon.bmp
WizardSmallImageFile=C:\small.bmp

[CustomMessages]
rus.Welcome1=Вас приветствует Мастер установки игры
rus.Welcome2=Нажмите «Далее», чтобы продолжить, или «Отмена», %nчтобы выйти из программы установки.
rus.Finished1=Установка игры {#MyAppName} успешно завершена.
rus.Finished2=Игра {#MyAppName} была успешно установлена на Ваш компьютер. %n%nДля ее запуска выберите соответствующий ярлык в меню «Пуск» или на Рабочем столе.
rus.Finished3=Нажмите «Завершить», чтобы выйти из программы установки.

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

[Files]

[Code]
var
PageNameLabel, PageDescriptionLabel, WelcomeLabel1, WelcomeLabel2, FinishedHeadingLabel, FinishedLabel: TLabel;

procedure InitializeWizard();
begin
PageNameLabel:= TLabel.Create(WizardForm);
with PageNameLabel do
begin
Left:= ScaleX(110);
Top:= ScaleY(10);
Width:= ScaleX(370);
Height:= ScaleY(14);
AutoSize:= False;
WordWrap:= True;
Font.Name:= 'Georgia';
Font.Color:= $000000;
Font.Style:= [fsBold];
ShowAccelChar:= False;
Transparent:= True;
Parent:= WizardForm.MainPanel;
end;
PageDescriptionLabel:= TLabel.Create(WizardForm);
with PageDescriptionLabel do
begin
Left:= ScaleX(130);
Top:= ScaleY(25);
Width:= ScaleX(330);
Height:= ScaleY(30);
AutoSize:= False;
WordWrap:= True;
Font.Name:= 'Georgia';
Font.Color:= $000000;
Font.Style:= [fsItalic];
ShowAccelChar:= False;
Transparent:= True;
Parent:= WizardForm.MainPanel;
end;



////////////////////// begin WelcomePage //////////////////////

WelcomeLabel1:= TLabel.Create(WizardForm);
with WelcomeLabel1 do begin
AutoSize:=False;
SetBounds(ScaleX(-30), ScaleY(10), ScaleX(550), ScaleY(65));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 13;
Font.Color:=$000000;
Font.Style:=[fsBold];
Caption:= ExpandConstant('{cm:Welcome1}')+#13#10+('{#MyAppName}');
Parent:=WizardForm.WelcomePage;
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do begin
AutoSize:=False;
SetBounds(ScaleX(25), ScaleY(270), ScaleX(450), ScaleY(200));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 10;
Font.Color:=$ffffff;
Font.Style := [fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Welcome2}');
Parent:=WizardForm.WelcomePage;
end;

////////////////////// end WelcomePage //////////////////////

////////////////////// begin FinishedPage //////////////////////

FinishedHeadingLabel:= TLabel.Create(WizardForm);
with FinishedHeadingLabel do begin
SetBounds(ScaleX(-30), ScaleY(10), ScaleX(550), ScaleY(65));
AutoSize:= false;
Alignment := taCenter;
Transparent:= true;
WordWrap:= true;
Font.Name:='Georgia';
Font.Size:= 13;
Font.Color:=$000000;
Font.Style := [fsBold];
Caption:= ExpandConstant('{cm:Finished1}');
Parent:=WizardForm.FinishedPage;
end;

FinishedLabel:=TLabel.Create(WizardForm);
with FinishedLabel do begin
AutoSize:=False;
SetBounds(ScaleX(25), ScaleY(160), ScaleX(450), ScaleY(200));
WordWrap:=True;
Alignment := taCenter;
Transparent:=True;
Font.Name:='Georgia';
Font.Size:= 10;
Font.Color:=$ffffff;
Font.Style := [fsBold, fsItalic];
Caption:= ExpandConstant('{cm:Finished2}'+#13#10+'{cm:Finished3}');
Parent:=WizardForm.FinishedPage;
end;

////////////////////// end FinishedPage //////////////////////

with WizardForm do begin
WelcomeLabel1.Hide;
WelcomeLabel2.Hide;
FinishedLabel.Hide;
FinishedHeadingLabel.Hide;
PageNameLabel.Hide;
PageDescriptionLabel.Hide;
with WizardBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with WizardBitmapImage2 do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= ScaleX(497);
Height:= ScaleY(313);
Stretch:= true;
end;
with MainPanel do begin
with WizardSmallBitmapImage do begin
Top:= ScaleY(0);
Left:= ScaleX(0);
Width:= Mainpanel.Width;
Height:= MainPanel.Height;
end;
end;
end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
end;

у меня не получается таким же способом сделать картинку тока на все страницы, мне нужно чтобы картинка растягивалась именно так. Помогите плиз :search:

[Rikill]

frion, какая картинка? приложи скрин, и на руборде и тут обсуждалось размещение картинок на всех страницах инсталлятора
http://www.forum.oszone.ru/post-1242285-250.html
вот даже что нарыл

[Rikill]

Neutron, а если человек использовал активатор? перед активаторами даже проверка windows genius бессильна

[Gnom_aka_Lexander]

у меня не получается таким же способом сделать картинку тока на все страницы, мне нужно чтобы картинка растягивалась именно так. Помогите плиз »
Поискать лень, чтоли? я недавно делал скинирование абсолютно всех страниц инсталлятора + скинирование кнопок(отключаемо, если не нужно)+ скинирование дефолтнх чекбоксов.
Ссылка (http://rghost.ru/12477681)
даже проверка windows genius »
Отнюдь. попробуй пройти проверку тут (http://www.microsoft.com/genuine/validate/DownloadValidationSupport.aspx?displaylang=ru). подавляющее большинство активаторов слетает на ура.

[Rikill]

Лександер, я на той странице всегда активаторы проверяю, не слетало ещё.

[El Sanchez]

как сделать так, чтобы инсталлятор, проверял, лицензионная ли Windows Vista, 7 или нет »
Neutron, думаю, нужно использовать свойство LicenseStatus класса SoftwareLicensingProduct (http://msdn.microsoft.com/en-us/library/cc534596%28v=VS.85%29.aspx) как это реализовано в Software Licensing Management Tool. С объектами WMI Inno умеет работать.

[Leka_651]

Добрый день!
подскажите как сделать, чтобы в зависимости от того что выбрано на первой странице инсталятора добавить или нет еще страницы с вводом параметров.
и еще вопрос: можно ли как-то посмотреть какие значения принимают переменные в процессе установки?

[Rikill]

Neutron, у меня есть эти файлы :laugh:

[GenYaro]

Подскажите, пожалуйста, как сделать чекбоксы на этой странице http://imageshack.us/photo/my-images/691/44918147.jpg/ такого же вида, как на этой: http://imageshack.us/photo/my-images/192/63577291.jpg/

[Rikill]

Neutron, никак, только что погуглил