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

[XXXler]

вот и я к томуже мнению пришол

я им просто не пользуюсь мне вид инстала нравится

[El Sanchez]

Цитата R.i.m.s.k.y.:



если исдоне удалять - там ничего не останется

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

Цитата wertulll:



я им просто не пользуюсь мне вид инстала нравится

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

wertulll, с файлами выложи со всеми для работы скрипта нужными, или дай ссылку на ориинал.

[Gnom_aka_Lexander]

вот здесь всё

http://rghost.ru/24985741

[Gugle]

wertulll,

Забирай.

Цитата wertulll:



спасибо!!!тебе большое

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

Копочка для спасибо есть. Мне нажатия на эту кнопочку - вполне достаточно, в плане благодарности.

[Gugle]

Както так:



Код:

Код: Выделить всё

procedure InitializeWizard;
begin
   WizardForm.NoRadio.Show;
   WizardForm.YesRadio.Show;
end;

[TROY Diamond]

Цитата nik1967:



Как то так



Спасибо! Работает! НО НЕ СОВСЕМ ТАК...



1. "Основная папка" всё-равно ОСТАЁТСЯ, даже если она пустая: Мои документы -> My Company -> My Game



Удаляется ТОЛЬКО "My Game", а как удалить и "My Company" если в ней больше ничего нет?



2. Можно ли окошко с запросом "отдельно вынести", чтобы оно появлялось раньше окна программы, а не во время процесса деинсталляции, а также убрать "Деинсталляция"? Либо заменить эту надпись на "Удаление профилей" и т.п.

Цитата:



Не проверял, но как то так



НЕ работает!

И вообще этот код можно ли как-то "усовершенствовать", чтобы можно было несколько вариантов названия приложения в "Uninstall" написать.

Приложение может по-разному называться и в реестре у кого-то будет "{7216871F-869E-437C-B9BF-2A13F2DCE63F}_is1", а кого-то просто "My Program_is1"?!




Цитата XXXler:



CustomMessages вам в помощь:



Не подходит... Значения AppPublisher, AppPublisherURL, AppCopyright, всё равно остаются, те которые заданы в секции Setup



Может кто-нибудь ответит?!!!



Как добавить задачу в "Назначенные задания" - файл *.job в WINDOWS\Tasks?

Как его "создать" в Inno?



Нужно, чтобы приложение запускалось с Windows и/или в опредённое время.



И чтобы оно устанавливалось ТОЛЬКО если пользователь его выберет при установке, на странице "Дополнительные задачи".

[XXXler]

искал. но толком не нашел. А вопрос такой возник.

Вот есть флаг comparetimestamp - позволяет сравнить дату создания извлекаемого файла и которого он накрывает. У этого сравнения много недостатков - все написано в справке. А надо бы сравнить даты изменения. Покопавшись немного решил, что можно сравнить даты штатными средствами windows через вызов bat или своей проги какой-нить. И поэтому возникла проблема как "достучаться" до файла в пакете. До файла который уже есть на диске я нашел способ добраться. надо получить только полный путь, указывающий на "реальный" файл ну или хотябы уже сами даты именно этих файлов. А уж как извлечь дату из них, сравнить и выбрать я сам решу. Подскажите хоть что-нибудь.

[Gnom_aka_Lexander]

Ребят глянте если не трудно вот собрал скрипт из двух скриптов чисто пока один вид фриарк ещё пока не прикручивал

всё работает нармально компилирует . но вот чтото зараза длиный получился может чего лишнего впихнул глянте если не трудно

читать дальше »

#define MyAppName "369"

#define NeedSize "7168"





[Setup]

SetupIconFile=1.ico

Diskspanning=yes

AppName=369

AppVerName=369

DefaultDirName={pf}\369

DefaultGroupName=369

DirExistsWarning=no

AppVersion=1.0

OutputBaseFilename=setup

OutputDir=.

VersionInfoCopyright=Me

AppPublisher=Square Enix

WizardImageFile=Files\WizardImage.bmp

WizardSmallImageFile=Files\WizardSmallImage.bmp

UninstallDisplayIcon=1.ico

ShowTasksTreeLines=true



[UninstallDelete]

Type: filesandordirs; Name: {app}





[Languages]

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



[Tasks]

Name: desktopicon; Description: Создать значок на Рабочем столе; GroupDescription: Дополнительные значки:

Name: Redist; Description: Дополнительное программное обеспечение:

Name: Redist\DirectXCheck; Description: Обновить Microsoft DirectX;

Name: Redist\VCCheck; Description: Установить Microsoft Visual C++ Redist;

[Run]

Filename: {src}\Redist\DirectX\DXSETUP.exe; StatusMsg: Обновление компонентов DirectX...; Tasks: Redist\DirectXCheck; Flags: waituntilterminated; Parameters: "/silent";

Filename: "{src}\Redist\vcredist_x86.exe"; StatusMsg: "Установка Microsoft Visual C++ Redist..."; Tasks: Redist\VCCheck; Flags: waituntilterminated; Parameters: "/Q";





[CustomMessages]

rus.Welcome2=Программа установит игру {#MyAppName} на Ваш компьютер.%n%nРекомендуется закрыть антивирусные пакеты, а также все прочие приложения перед тем, как продолжить.

rus.Finished=Игра {#MyAppName} установлена на Ваш компьютер.%n%nПриложение можно запустить с помощью соответствующего значка.%n%nНажмите «Завершить», чтобы выйти из программы установки.



rus.Space=Доступно места на диске:

rus.Space1=Требуется места на диске:







[Files]

Source: Files\button.bmp; DestDir: {tmp}; Flags: dontcopy

Source: Files\Finishe.bmp; DestDir: {tmp}; Flags: dontcopy

Source: Files\papka.bmp; DestDir: {tmp}; Flags: dontcopy

Код: Выделить всё

const

ButtonWidth = 80;

ButtonHeight = 23;

Color = clblack;



bidBack = 0;

bidNext = 1;

bidCancel = 2;

bidDirBrowse = 3;

bidGroupBrowse = 4;

bidbtnCancelUnpacking = 5;

var

WizardLabel: TLabel;

ButtonPanel: array of TPanel;

ButtonImage: array of TBitmapImage;

ButtonLabel: array of TLabel;

UsedButtons: array of TButton;

ButtonsCount: Integer;

NeedSpaceLabel,FreeSpaceLabel: TLabel;

NeedSize:Integer;

FreeMB, TotalMB: Cardinal;



Function NumToStr(Float: Extended): String;

Begin

  Result:= Format('%.2n', [Float]); StringChange(Result, ',', '.');

while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do

  SetLength(Result, Length(Result)-1);

End;



procedure GetFreeSpaceCaption(Sender: TObject);

var

  Path: String;

begin

  Path := ExtractFileDrive(WizardForm.DirEdit.Text);

  GetSpaceOnDisk(Path, True, FreeMB, TotalMB);

  if FreeMB > 1024 then

    FreeSpaceLabel.Caption := ExpandConstant('{cm:SPACE} ')+ NumToStr(round(FreeMB/1024*100)/100) + ' Гб' else

    FreeSpaceLabel.Caption := ExpandConstant('{cm:SPACE} ')+ IntToStr(FreeMB)+ ' Мб';

if WizardForm.CurPageID = wpSelectDir then begin  //Чтоб не было глюков на других страницах

  if FreeMB < NeedSize then begin

    WizardForm.NextButton.Enabled := False;

    ButtonPanel[bidNext].Enabled:= False;

    ButtonLabel[bidNext].Enabled:= False;

    end else begin

    WizardForm.NextButton.Enabled := True;

    ButtonPanel[bidNext].Enabled:= True;

    ButtonLabel[bidNext].Enabled:= True; end;

  end;

end;



procedure GetNeedSpaceCaption;

begin

if NeedSize > 1024 then

NeedSpaceLabel.Caption := ExpandConstant('{cm:SPACE1} ')+ NumToStr(round(NeedSize/1024*100)/100) + ' Гб' else

NeedSpaceLabel.Caption := ExpandConstant('{cm:SPACE1} ')+ NumToStr(NeedSize)+ ' Мб';

end;



procedure LabelSize();

begin

  NeedSize:= {#NeedSize};

  with WizardForm do

  begin

  DiskSpaceLabel.Hide;end;

////////////////////// SelectDirPage //////////////////////

  NeedSpaceLabel := TLabel.Create(WizardForm);

  with NeedSpaceLabel do

  begin

  Parent := WizardForm.SelectDirPage;

  Left := ScaleX(0);

  Top := ScaleY(202);

  Width := ScaleX(209);

  Height := ScaleY(13);

  end;



  FreeSpaceLabel := TLabel.Create(WizardForm);

  with FreeSpaceLabel do

  begin

  Parent := WizardForm.SelectDirPage;

  Left := ScaleX(0);

  Top := ScaleY(220);

  Width := ScaleX(209);

  Height := ScaleY(13);

  end;

  end;



procedure ButtonLabelClick(Sender: TObject);

var Button: TButton; n, i: Integer;

begin

i:= TLabel(Sender).Tag; ButtonImage[i].Left:= 0

for n:=0 to (ButtonsCount-1) do begin

if i = n then Button:= UsedButtons[n];

end;

Button.OnClick(Button)

end;



procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if ButtonLabel[TLabel(Sender).Tag].Enabled then ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth*2

end;



procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if ButtonLabel[TLabel(Sender).Tag].Enabled then ButtonImage[TLabel(Sender).Tag].Left:=0

end;



procedure ButtonLabelMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var n, I: Integer;

begin

I:=TLabel(Sender).Tag;

//Сначала восстанавливаем картинку у всех кнопок, так надо иначе могут быть глюки

for n:=0 to (ButtonsCount-1) do begin if (ButtonLabel[n].Enabled)and(ButtonImage[n].Left  -ButtonWidth*2)and(IN) then ButtonImage[n].Left:= 0; end;

//Теперь собственно ставим нужную картинку

if (ButtonLabel[i].Enabled)and(ButtonImage[i].Left  -ButtonWidth*2) then begin ButtonImage[i].Left:= -ButtonWidth; end;

end;



procedure WizardLabelMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var n: Integer;

begin

//Т.к Sender'ом выступает WizardLabel то не получится испльзовать индекс кнопки

for n:=0 to (ButtonsCount-1) do if (ButtonLabel[n].Enabled)and(ButtonImage[n].Left  -ButtonWidth*2) then begin ButtonImage[n].Left:= 0; end;

end;



procedure LoadButtonImage(AButton: TButton);

var n: Integer;

begin

n:=ButtonsCount; SetArrayLength(ButtonPanel, n+1);

SetArrayLength(ButtonImage, n+1); SetArrayLength(ButtonLabel, n+1);

SetArrayLength(UsedButtons, n+1); UsedButtons[n]:= AButton;



ButtonPanel[n]:=TPanel.Create(WizardForm)

ButtonPanel[n].SetBounds(AButton.Left, AButton.Top, AButton.Width, AButton.Height)

ButtonPanel[n].Tag:= n

ButtonPanel[n].Enabled:= AButton.Enabled

ButtonPanel[n].Parent:=AButton.Parent



ButtonImage[n]:=TBitmapImage.Create(WizardForm)

ButtonImage[n].SetBounds(ScaleX(0), ScaleY(0), ScaleX(320), ScaleY(23))

ButtonImage[n].Enabled:=False

ButtonImage[n].Bitmap.LoadFromFile(ExpandConstant('{tmp}\Button.bmp'))

ButtonImage[n].Parent:=ButtonPanel[n]



with TLabel.Create(WizardForm) do begin

Tag:=n

Parent:=ButtonPanel[n]

Width:=AButton.Width

Height:=AButton.Height

Transparent:=True

OnClick:=@ButtonLabelClick

OnDblClick:=@ButtonLabelClick

OnMouseMove:=@ButtonLabelMove

OnMouseDown:=@ButtonLabelMouseDown

OnMouseUp:=@ButtonLabelMouseUp

end;



ButtonLabel[n]:=TLabel.Create(WizardForm)

ButtonLabel[n].Autosize:=True

ButtonLabel[n].Alignment:=taCenter

ButtonLabel[n].Tag:=n

ButtonLabel[n].Enabled:= AButton.Enabled

ButtonLabel[n].Transparent:=True

ButtonLabel[n].Font.Color:=clWhite

ButtonLabel[n].Caption:=AButton.Caption

ButtonLabel[n].OnClick:=@ButtonLabelClick

ButtonLabel[n].OnDblClick:=@ButtonLabelClick

ButtonLabel[n].OnMouseMove:=@ButtonLabelMove

ButtonLabel[n].OnMouseDown:=@ButtonLabelMouseDown

ButtonLabel[n].OnMouseUp:=@ButtonLabelMouseUp

ButtonLabel[n].Parent:=ButtonPanel[n]



ButtonsCount:= ButtonsCount+1

end;



procedure UpdateButtons();

var n: Integer;

begin

for n:=0 to ButtonsCount-1 do begin

ButtonLabel[n].Caption:=UsedButtons[n].Caption

ButtonPanel[n].Visible:=UsedButtons[n].Visible

if (UsedButtons[n].Enabled = False) then ButtonImage[n].Left:= -ButtonWidth*3 else ButtonImage[n].Left:= 0;

ButtonLabel[n].Enabled:= UsedButtons[n].Enabled;

ButtonPanel[n].Enabled:= UsedButtons[n].Enabled;

//Ставим Left и Top лейбла соразмерно размеру лейбла

ButtonLabel[n].Left:= ButtonPanel[n].Width div 2 - ButtonLabel[n].Width div 2;

ButtonLabel[n].Top:= ButtonPanel[n].Height div 2 - ButtonLabel[n].Height div 2;

end;

end;



procedure LicenceAcceptedRadioOnClick(Sender: TObject);

begin

//Делаем кнопку активной

WizardForm.NextButton.Enabled:= True;

//Обновляем текстурированную кнопку (обновляем активность и текстуру)

UpdateButtons();

end;



procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);

begin

//Делаем кнопку неактивной

WizardForm.NextButton.Enabled:= False;

//Обновляем текстурированную кнопку (обновляем активность и текстуру)

UpdateButtons()

end;



procedure ButtonTextures();

begin

WizardForm.Font.Color:=clWhite;

WizardForm.Color:=Color;

WizardForm.WelcomePage.Color:=Color;

WizardForm.InnerPage.Color:=Color;

WizardForm.FinishedPage.Color:=Color;

WizardForm.LicensePage.Color:=Color;

WizardForm.PasswordPage.Color:=Color;

WizardForm.InfoBeforePage.Color:=Color;

WizardForm.UserInfoPage.Color:=Color;

WizardForm.SelectDirPage.Color:=Color;

WizardForm.SelectComponentsPage.Color:=Color;

WizardForm.SelectProgramGroupPage.Color:=Color;

WizardForm.SelectTasksPage.Color:=Color;

WizardForm.ReadyPage.Color:=Color;

WizardForm.PreparingPage.Color:=Color;

WizardForm.InstallingPage.Color:=Color;

WizardForm.InfoAfterPage.Color:=Color;

WizardForm.DirEdit.Color:=Color;

WizardForm.DiskSpaceLabel.Color:=Color;

WizardForm.DirEdit.Color:=Color;

WizardForm.GroupEdit.Color:=Color;

WizardForm.PasswordLabel.Color:=Color;

WizardForm.PasswordEdit.Color:=Color;

WizardForm.PasswordEditLabel.Color:=Color;

WizardForm.ReadyMemo.Color:=Color;

WizardForm.TypesCombo.Color:=Color;

WizardForm.WelcomeLabel1.Color:=Color;

WizardForm.InfoBeforeClickLabel.Color:=Color;

WizardForm.MainPanel.Color:=Color;

WizardForm.PageDescriptionLabel.Color:=Color;

WizardForm.ReadyLabel.Color:=Color;

WizardForm.YesRadio.Color:=Color;

WizardForm.NoRadio.Color:=Color;

WizardForm.WelcomeLabel2.Color:=Color;

WizardForm.LicenseLabel1.Color:=Color;

WizardForm.InfoAfterClickLabel.Color:=Color;

WizardForm.ComponentsList.Color:=Color;

WizardForm.ComponentsDiskSpaceLabel.Color:=Color;

WizardForm.BeveledLabel.Color:=Color;

WizardForm.StatusLabel.Color:=Color;

WizardForm.FilenameLabel.Color:=Color;

WizardForm.SelectDirLabel.Color:=Color;

WizardForm.SelectStartMenuFolderLabel.Color:=Color;

WizardForm.SelectComponentsLabel.Color:=Color;

WizardForm.SelectTasksLabel.Color:=Color;

WizardForm.LicenseAcceptedRadio.Color:=Color;

WizardForm.LicenseNotAcceptedRadio.Color:=Color;

WizardForm.UserInfoNameLabel.Color:=Color;

WizardForm.UserInfoNameEdit.Color:=Color;

WizardForm.UserInfoOrgLabel.Color:=Color;

WizardForm.UserInfoOrgEdit.Color:=Color;

WizardForm.PreparingLabel.Color:=Color;

WizardForm.UserInfoSerialLabel.Color:=Color;

WizardForm.UserInfoSerialEdit.Color:=Color;

WizardForm.TasksList.Color:=Color;

WizardForm.RunList.Color:=Color;

WizardForm.SelectDirBrowseLabel.Color:=Color;

WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;

WizardForm.Bevel.visible:=True;

WizardForm.BeveledLabel.visible:=True;

WizardForm.Bevel1.visible:=True;



WizardLabel:= TLabel.Create(WizardForm)

WizardLabel.SetBounds(ScaleX(0), ScaleY(0), ScaleX(WizardForm.Width), ScaleY(WizardForm.Height))

WizardLabel.Transparent:= True;

WizardLabel.AutoSize:=false;

WizardLabel.OnMouseMove:=@WizardLabelMove

WizardLabel.Parent:= WizardForm;



WizardForm.BackButton.Width:= ButtonWidth

WizardForm.BackButton.Height:= ButtonHeight



WizardForm.NextButton.Width:= ButtonWidth

WizardForm.NextButton.Height:= ButtonHeight



WizardForm.CancelButton.Width:=ButtonWidth

WizardForm.CancelButton.Height:= ButtonHeight



WizardForm.DirBrowseButton.Left:=ScaleX(337)

WizardForm.DirBrowseButton.Width:= ButtonWidth

WizardForm.DirBrowseButton.Height:=ButtonHeight



WizardForm.GroupBrowseButton.Left:=ScaleX(337)

WizardForm.GroupBrowseButton.Width:= ButtonWidth

WizardForm.GroupBrowseButton.Height:=ButtonHeight



WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick



WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick



ExtractTemporaryFile('button.bmp')

LoadButtonImage(WizardForm.BackButton)

LoadButtonImage(WizardForm.NextButton)

LoadButtonImage(WizardForm.CancelButton)

LoadButtonImage(WizardForm.DirBrowseButton)

LoadButtonImage(WizardForm.GroupBrowseButton)

//Сначала текстурируются кнопки, затем выполняется процедура которую мы перенесли

WizardForm.DirEdit.OnChange:= @GetFreeSpaceCaption;

WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text + #0;

end;



var 

 WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel; 

 PageNameLabel, PageDescriptionLabel: TLabel; 





 procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); 

 begin 

 Confirm:=True; 

 end; 



 procedure Labels(); 

 begin 

 WelcomeLabel1:= TLabel.Create(WizardForm); 

 WelcomeLabel1.AutoSize:= False; 

 with WizardForm.WelcomeLabel1 do 

 //координаты WelcomeLabel1 

 WelcomeLabel1.SetBounds(ScaleX(30), ScaleY(10), ScaleX(200), ScaleY(220)); 

 WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font 

 WelcomeLabel1.Font.Color:= clWhite;

 WizardForm.ProgressGauge.State:= npbsNormal; 

 WelcomeLabel1.Transparent:= True; 

 WelcomeLabel1.WordWrap:= true; 

 WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption; 

 WelcomeLabel1.Parent:= WizardForm.WelcomePage 



 WelcomeLabel2:= TLabel.Create(WizardForm); 

 WelcomeLabel2.AutoSize:= False; 

 with WizardForm.WelcomeLabel2 do 

 //координаты WelcomeLabel2 

 WelcomeLabel2.SetBounds(ScaleX(30), ScaleY(105), ScaleX(130), ScaleY(220)); 

 WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font 

 WelcomeLabel2.Font.Color:= clWhite; 

 WelcomeLabel2.Transparent:= True; 

 WelcomeLabel2.WordWrap:= true; 

 WelcomeLabel2.Caption:= ExpandConstant('{cm:Welcome2}'); 

 WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption; 

 WelcomeLabel2.Parent:= WizardForm.WelcomePage 



 WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height); 



 PageNameLabel:= TLabel.Create(WizardForm) 

 with WizardForm.PageNameLabel do 

 PageNameLabel.SetBounds(Left, Top, Width, Height); 

 PageNameLabel.Transparent:= True; 

 PageNameLabel.Font:= WizardForm.PageNameLabel.Font; 

 PageNameLabel.Font.Color:= clWhite; //цвет надписи 

 PageNameLabel.Parent:= WizardForm.MainPanel; 



 PageDescriptionLabel:= TLabel.Create(WizardForm) 

 with WizardForm.PageDescriptionLabel do 

 PageDescriptionLabel.SetBounds(Left, Top, Width, Height); 

 PageDescriptionLabel.Transparent:= True; 

 PageDescriptionLabel.Font:= WizardForm.PageDescriptionLabel.Font; 

 PageDescriptionLabel.Font.Color:= clWhite; //цвет надписи 

 PageDescriptionLabel.Parent:= WizardForm.MainPanel; 



 FinishedHeadingLabel:= TLabel.Create(WizardForm); 

 FinishedHeadingLabel.AutoSize:= False; 

 with WizardForm.FinishedHeadingLabel do 

 //координаты FinishedHeadingLabel 

 FinishedHeadingLabel.SetBounds(ScaleX(30), ScaleY(20), ScaleX(200), ScaleY(220)); 

 FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font 

 FinishedHeadingLabel.Font.Color:= clWhite; 

 FinishedHeadingLabel.Transparent:= True; 

 FinishedHeadingLabel.WordWrap:= true; 

 FinishedHeadingLabel.Parent:= WizardForm.FinishedPage 



 FinishedLabel:= TLabel.Create(WizardForm); 

 FinishedLabel.AutoSize:= False; 

 with WizardForm.FinishedLabel do 

 //координаты FinishedLabel 

 FinishedLabel.SetBounds(ScaleX(30), ScaleY(120), ScaleX(130), ScaleY(220)); 

 FinishedLabel.Font:= WizardForm.FinishedLabel.Font 

 FinishedLabel.Font.Color:= clWhite; 

 FinishedLabel.Transparent:= True; 

 FinishedLabel.WordWrap:= true; 

 FinishedLabel.Parent:= WizardForm.FinishedPage 



 WizardForm.PageNameLabel.Hide; 

 WizardForm.PageDescriptionLabel.Hide; 

 WizardForm.FilenameLabel.Hide; 

 WizardForm.StatusLabel.Caption:='Идет распаковка данных, ждем...'

 WizardForm.WelcomeLabel1.Hide; 

 WizardForm.WelcomeLabel2.Hide; 

 WizardForm.FinishedLabel.Hide; 

 WizardForm.FinishedHeadingLabel.Hide; 

 end; 





 procedure InitializeWizard(); 

 Begin 

 LabelSize(); 

 ButtonTextures(); 

 Labels();  

 ExtractTemporaryFile('Finishe.bmp'); 

 WizardForm.WizardBitmapImage.Width:= ScaleX(497); 

 WizardForm.WizardBitmapImage2.Width:= ScaleX(497); 

 WizardForm.WizardBitmapImage2.Bitmap.LoadFromFile(ExpandConstant('{tmp}\Finishe.bmp')); 

 ExtractTemporaryFile('papka.bmp'); 

 WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp')); 

 WizardForm.SelectDirBitmapImage.AutoSize:=true; 

 WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp')); 

 WizardForm.SelectGroupBitmapImage.AutoSize:=true; 

 End; 



 Procedure CurPageChanged(CurPageID: Integer); 

 Begin 

 UpdateButtons(); 

 FinishedLabel.Caption:= ExpandConstant('{cm:Finished}'); 

 PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption; 

 //PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption; 



 FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption; 



 end;






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

[leshcat]

Цитата wertulll:



но вот чтото зараза длиный получился

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

Это ты еще длинных не видел, это так себе ....

[leshcat]

да я к тому что там кроме как для внешнего вида в коде та и нет нечего