[vitl]

Спасибо, serg aka lain!
Пример - то, что надо, только при включенном DisableDirPage=yes кнопка НАЗАД все равно есть.
Что сделать, чтобы Ваш приведенный код выполнялся правильно при задействованном DisableDirPage=yes ?

[Молодой]

Всем доброго времени суток, создал Setup , все сделал как надо, но возникла проблема!
Архивы распаковываються, но просто в корень папки, а не по подпапкам. Как исправить?
Заранее багодарен за ответ!

[Dark Engel]

Молодой, Указывай в скрипте не

D:\test\po\proga\*

а
D:\test\po\proga\*; DestDir: {app}
D:\test\po\proga\papka\*; DestDir: {app}\papka;
D:\test\po\proga\papka1\*; DestDir: {app}\papka1;
D:\test\po\proga\papka2\podpapka1\*; DestDir: {app}\papka2\podpapka1;
D:\test\po\proga\papka2\podpapka2\*; DestDir: {app}\papka2\podpapka2;
D:\test\po\proga\papka3\*; DestDir: {app}\papka3;

[Молодой]

Спасибо попробуем!

[baikalchanen]

Собрал скрипт с музыкой и с темой Vista.cjstyles,в итоге получается только с музыкой без темы либо только с темой без музыкой!
Помогите собрать скрипт с музыкой и с темой вместе.
Прикрепил два скрипта один с музыкой,другой с темой.

[Молодой]

Подскажите скрипт для расчета свободного места на жестком "Требуется свободного места..."
Заранее благодарен

[A1EXXX]

Inno Setup Compiler [ANSI] Beta (build 091209) English by Restools

[Молодой]

A1EXXX, Спасибо, но это же не сам скрипт или я что то путаю?

[A1EXXX]

Молодой, это расширенная версия компилятора... По твоему вопросу, это, думаю, подойдёт:

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

Код:

[Code]
var
NeedSize:Integer; FreeMB, TotalMB: Cardinal; NeedSpaceLabel,FreeSpaceLabel: TLabel;

procedure GetFreeSpaceCaption(Sender: TObject);
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB > 1024 then
FreeSpaceLabel.Caption := 'Доступно места на диске: '+ FloatToStr(round(FreeMB/1024*100)/100) + ' GB' else
FreeSpaceLabel.Caption := 'Доступно места на диске: '+ IntToStr(FreeMB)+ ' MB';
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled := False else
WizardForm.NextButton.Enabled := True; end;

procedure GetNeedSpaceCaption;
begin
if NeedSize > 1024 then
NeedSpaceLabel.Caption := 'Требуется места на диске: '+ FloatToStr(round(NeedSize/1024*100)/100) + ' GB' else
NeedSpaceLabel.Caption := 'Требуется места на диске: '+ IntToStr(NeedSize)+ ' MB';
end;

procedure InitializeWizard();
begin
NeedSize := 630000;  // здесь указать сколько требуется для установки (в Mb)

WizardForm.DiskSpaceLabel.Hide;

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;
WizardForm.DirEdit.OnChange := @GetFreeSpaceCaption;
WizardForm.DirEdit.Text := WizardForm.DirEdit.Text + #0;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpSelectDir then begin
GetNeedSpaceCaption;
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled:=False
end;
end;

[Молодой]

A1EXXX, Огромное спасибо за скрипт, прописал, все работает!