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

azerbaijanec максимальная ширана картинки 160 px.

нет 493 px

azerbaijanec
Это все из-за WizardForm.PageNameLabel. Ее длина слишком большая потому и закрывает часть картинки. Попробуй установить значение WizardForm.PageNameLabel.Width равным 150 или 170. В общем уменьшить длину WizardForm.PageNameLabel

Shegorat
ах дай я тебя расцелую,спасибо,что помогаешь всем

Кто подскажет?
Я переделал http://rghost.ru/1573116 скрипт NFS в свой.
Проскакивает выбор "Меню "Пуск"".
Что надо добавить?

И еще, поменял FreeArc.iss на Precomp+Ogg (свой).
Добавил 2 ПрогресБара их не показывает, но процедура происходит.
В более простом показывает!

Меня смущает WizardForm.ProgressGauge.Visible:=False;
WizardForm.ProgressGauge.Видима:= Ложь.

ChanVS
Телепаты в отпуске. Скрипт выложи, то что у тебя получилось.
Только скрипт с модулями. Остальные файлы у меня есть.

Shegorat

Полностью папку или основной!

ChanVS,основной уж


Добавлено:
http://i8.fastpic.ru/big/2010/0811/5e/0221e2a705e9efab97cfd7c006a86c5e.jpg как в скрипте юршата Need for Speed™ Undercover.iss v 2.2 [Final] + ISDone убрать раздел http://i8.fastpic.ru/big/2010/0811/8d/f65d6830f2428bc3a0ea50c71707768d.jpg

http://rghost.ru/2317322
Весь архив
Не то пропускает!

ChanVS
ПРИМЕР!!!

[Setup]
DefaultGroupName=название папки в меню пуск

[Icons]
Name: {group}\Fifa 09; Filename: {app}\Fifa 09\FIFA09.exe; IconFilename: {app}\fifa.ico; WorkingDir: {app}\Fifa 09; Comment: Запустить игру
Name: {group}\{cm:UninstallProgram,Fifa 09}; Filename: {app}\unins000.exe; WorkingDir: {app}; IconFilename: {app}\fifa.ico; Comment: Удалить игру

вот вроде что должно быть для меню пуск

ChanVS
Скинь мне только 3 файла: Call of Dutyl™ .iss AutoRun.iss PrecompPCF.iss из твоего скрипта, а то весь архив мне как-то несподручно качать.

[more][Setup]
AppName=Example.Mini.Progress.Bar
AppVerName=Example.Mini.Progress.Bar 1.5
DefaultDirName={pf}\Example.Mini.Progress.Bar
OutputBaseFilename=mini.progress.bar.by.genri
WindowVisible=no

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

[Files]
Source: compiler:WizModernSmallImage.bmp; Flags: dontcopy nocompression

[Code]
function GetSystemMetrics(nIndex: Integer): Integer; external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
var
Form: TSetupForm;
ProgressBar: TNewProgressBar;
CancelButton: TButton;
StaticText: TNewStaticText;
BitmapImage: TBitmapImage;
BitmapFileName: string;
i: Integer;
begin
Form := CreateCustomForm();
try
with Form do
begin
ClientWidth := ScaleX(375); //Ширина формы для ProgressBar
ClientHeight := ScaleY(120); //Высота формы для ProgressBar
BorderStyle := bsDialog;
Left := GetSystemMetrics(16) - ClientWidth - ScaleX(5);
Top := GetSystemMetrics(17) - ClientHeight - ScaleY(5);
Caption := 'Inno Setup Wizard' //Заголовок мини ProgressBar'a
end;

BitmapFileName := ExpandConstant('{tmp}\WizModernSmallImage.bmp');
ExtractTemporaryFile(ExtractFileName(BitmapFileName));
BitmapImage := TBitmapImage.Create(Form);
BitmapImage.Left := ScaleX(8);
BitmapImage.Top := ScaleY(8);
BitmapImage.Width := ScaleX(58);
BitmapImage.Height := ScaleY(58);
BitmapImage.Bitmap.LoadFromFile(BitmapFileName);
BitmapImage.Parent := Form;

StaticText := TNewStaticText.Create(Form);
StaticText.Top := BitmapImage.Top;
StaticText.Left := BitmapImage.Left + BitmapImage.Width + ScaleX(8)
StaticText.Caption := 'Идет подготовка к установке S.T.A.L.K.E.R.: Shadow Of' + #10#13 + 'Chernobyl' + #10#13#10 + 'Пожалуйста подождите...'; //Текст самого мини ProgressBar'a
StaticText.AutoSize := True;
StaticText.Parent := Form;

CancelButton := TButton.Create(Form);
CancelButton.Parent := Form;
CancelButton.Width := ScaleX(75);
CancelButton.Height := ScaleY(23);
CancelButton.Left := Form.ClientWidth - ScaleX(75 + 10);
CancelButton.Top := Form.ClientHeight - ScaleY(23 + 10);
CancelButton.Caption := 'Cancel';
CancelButton.ModalResult := mrCancel;
CancelButton.Cancel := True;

ProgressBar := TNewProgressBar.Create(Form);
with ProgressBar do
begin
Height := CancelButton.Height - ScaleY(8);
Width := Form.Width - ScaleX(128);
Top := CancelButton.Top;
Left := BitmapImage.Left;
Parent := Form;
Min := 0;
Max := 30;
Position := 0;
end;
Form.ActiveControl := CancelButton;
Form.Show();
for i := 0 to 30 do
begin
ProgressBar.Position := i;
Form.Repaint;
Sleep(500);
i := i + 1;
end;
finally
Form.Free();
end;
end;
[/more]

Что нужно изменить в этом скрипте, что бы кнопка "Отмена", была всё же активной, а не простой показухой, просто нельзя отменить процесс установки, когда эмулируется подготовка к установке.

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

TonyJef
В том-то и дело что это есть!
А вот пункт проскакивает!

ChanVS,хер знает


Добавлено:
http://i8.fastpic.ru/big/2010/0811/5e/0221e2a705e9efab97cfd7c006a86c5e.jpg как в скрипте юршата Need for Speed™ Undercover.iss v 2.2 [Final] + ISDone убрать раздел http://i8.fastpic.ru/big/2010/0811/8d/f65d6830f2428bc3a0ea50c71707768d.jpg

TonyJef
Ты не понял. Это у меня есть.
У меня "Меню Пуск" проскакивает а не Каталог!

ChanVS,да я понял! я все посмотрел у тебя уже!


Добавлено:
помогите мне пожалуйста кто нибудь с моей просьбой

TonyJef
А у тебя что?

ChanVS,выше читай

Shegorat

http://rghost.ru/2317753

Лови

Добавлено:
TonyJef
У тебя проблема с размегом прогрес бага?

Ндэ, всё очень просто.
ChanVS, из секции [Setup] убери строку DisableProgramGroupPage=true

Alexander61434
Спасибочки.
Голову ломал.
Не замечал!

ChanVS блин ! мне это убрать надо http://i8.fastpic.ru/big/2010/0811/8d/f65d6830f2428bc3a0ea50c71707768d.jpg

TonyJef
Легко


Добавлено:
TonyJef
Найди строку procedure CreateStatusPanel;
И удали до
[more]
procedure CreateStatusPanel;
begin
Welcome := TLabel.Create(WizardForm);
with Welcome do begin
AutoSize:=False;
SetBounds(ScaleX(13), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:Welcome}');
Parent := WizardForm;
end;

System := TLabel.Create(WizardForm);
with System do begin
AutoSize:=False;
SetBounds(ScaleX(143), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:System}');
Parent := WizardForm;
end;

Catalogue := TLabel.Create(WizardForm);
with Catalogue do begin
AutoSize:=False;
SetBounds(ScaleX(260), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:Catalogue}');
Parent := WizardForm;
end;

StartMenu := TLabel.Create(WizardForm);
with StartMenu do begin
AutoSize:=False;
SetBounds(ScaleX(357), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:StartMenu}');
Parent := WizardForm;
end;

Tasks := TLabel.Create(WizardForm);
with Tasks do begin
AutoSize:=False;
SetBounds(ScaleX(490), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:Task}');
Parent := WizardForm;
end;

Installing := TLabel.Create(WizardForm);
with Installing do begin
AutoSize:=False;
SetBounds(ScaleX(593), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:Installing}');
Parent := WizardForm;
end;

Finish := TLabel.Create(WizardForm);
with Finish do begin
AutoSize:=False;
SetBounds(ScaleX(703), ScaleY(96), ScaleX(114), ScaleY(20));
Transparent:=True;
Font.Name:= 'Arial';
Font.Size:= 10;
Font.Style:=[fsBold];
Caption := ExpandConstant('{cm:Finish}');
Parent := WizardForm;
end;
end;
[/more]

лажа,у меня теперь вообще не работает

TonyJef
Ты какой скрипт переделовал?

Добавлено:
TonyJef
Если не записывался нажми ctrl+z. Столько сколько изменений сделал!

Добавлено:
Кто подскажет.

ChanVS,я копирую скрипты если че...

ChanVS неправильно указали путь к файлу

ChanVS

Цитата:

Кто подскажет.

Возникает всегда на одном и том же месте? pcf файлы создавал той же версией, какой и распаковывешь?

Profrager
Я нащел ошибку.
Идет процедура
[more]#ifdef precomp04
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('RTconsole.exe');
ExtractTemporaryFile('precomp04.exe');
#endif
#ifdef precomp038
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('RTconsole.exe');
ExtractTemporaryFile('precomp038.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
[/more]

а мне нужна

[more]
procedure RecodePCF;
var
ResultCode: integer; CurFile: String;
ProgressBar: TNewProgressBar;
ProgressBar2: TNewProgressBar;
begin
ExtractTemporaryFile('precomp.exe'); ExtractTemporaryFile('packjpg_dll.dll')
FindFiles(ExpandConstant('{app}'), '*.pcf')
Files:= StringToArray(S, '|')
WizardForm.ProgressGauge.Max:= GetArrayLength(Files);
StatusLabel.Caption:= 'Преобразование файлов...';
ProgressBar := TNewProgressBar.Create(WizardForm);
ProgressBar2:= TNewProgressBar.Create(WizardForm);
with ProgressBar do begin
Left := WizardForm.ProgressGauge.Left;
Top := WizardForm.ProgressGauge.Top + ScaleX(60);
Width := WizardForm.ProgressGauge.Width/2;
Height := WizardForm.ProgressGauge.Height;
Parent := WizardForm.InstallingPage;
Min := 0;
Max := GetArrayLength(Files);
Position := 0;
show;
with ProgressBar2 do begin
Left := WizardForm.ProgressGauge.Left + ScaleY(310);
Top := WizardForm.ProgressGauge.Top + ScaleX(60);
Width := 280;
Height := WizardForm.ProgressGauge.Height;
Parent := WizardForm.InstallingPage;
Min := 0;
Max := 100;
Position := 0;
show;
end;
for n:=(GetArrayLength(Files)-1) downto 0 do begin
FileCopy(ExpandConstant('{tmp}\precomp.exe'),AddBackslash(ExtractFilePath(Files[n]))+'precomp.exe', False)
FileCopy(ExpandConstant('{tmp}\packjpg_dll.dll'),AddBackslash(ExtractFilePath(Files[n]))+'packjpg_dll.dll', False)
FilenameLabel.Caption:= Files[n];
Exec(AddBackslash(ExtractFilePath(Files[n]))+'precomp.exe', '-d '+AddQuotes(Files[n]), '', SW_Hide, EwWaitUntilTerminated, ResultCode)
ProgressBar.Position:= ProgressBar.Position +1;
DeleteFile(Files[n])
DeleteFile(AddBackslash(ExtractFilePath(Files[n]))+'packjpg_dll.dll')
DeleteFile(AddBackslash(ExtractFilePath(Files[n]))+'precomp.exe')
end;
[/more]

Но мой вариант не показывает прогрес

TonyJef

Цитата:

блин ! мне это убрать надо

Закомментил лишнее. Лови