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

saurn · Конфигурация компьютера

Johny777, спасибо за исправления.

Цитата Johny777:

заместо функции GetPreviousDir(...) проще всего получить пред. путь так »

Этот вариант там как раз и не работал, из-за запятой в имени раздела.

neorom · Отправлено: **14:30, 14-04-2013** | #**182**

Цитата Johny777:

замени у себя всю секцию кода на эту »

Заменил я у себя всю секцию кода, но тепер пишет при компиляции Unknown identifier 'FormatFloat'

saurn · Конфигурация компьютера

neorom, Компилировать нужно на расширенной версии от китайцев. Тем более, что: ISTool давным-давно устарело и большинство параметров не знает.

Nightwishh · Конфигурация компьютера

audiofeel, Честно говоря,

Цитата audiofeel:

Я делаю вот так, пробуй »

не получилось, "Текущий выбор требует не менее [mb] МБ на диске" и "Программа [Name] установлена на Ваш компьютер. Приложение можно запустить бла, бла, бла"

audiofeel · Конфигурация компьютера

Nightwishh,

Цитата Nightwishh:

не получилось »

ну попробуй сделать так; добавь

Код:

 [Languages]
Name: ru; MessagesFile: compiler:Default.isl
[Messages]
ru.ComponentsDiskSpaceMBLabel=Текущий выбор требует не менее *****МБ на диске // и укажи сколько места требуется сам
ru.FinishedLabel=Программа ******* установлена на Ваш компьютер.  // здесь тоже пиши что хочешь

saurn · Конфигурация компьютера

Nightwishh, audiofeel,

Код:

Label1.Caption := WizardForm.ComponentsDiskSpaceLabel.Caption;

Цитата GolD18:

Здравствуйте. Не видно надпись снизу. Один квадратик остался. Что изменить надо? »

Код:

const
Color = clblack;

procedure InitializeWizard();
begin
  WizardForm.Font.Color:=clLime;
  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:=clblack;
  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.WelcomeLabel1.Font.Color:=clLime;
  WizardForm.InfoBeforeClickLabel.Color:=Color;
  WizardForm.MainPanel.Color:=Color;
  WizardForm.PageNameLabel.Color:=Color;
  WizardForm.PageDescriptionLabel.Color:=Color;
  WizardForm.ReadyLabel.Color:=Color;
  WizardForm.FinishedLabel.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.FinishedHeadingLabel.Color:=Color;
  WizardForm.FinishedHeadingLabel.Font.Color:=clLime;
  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.PageNameLabel.Font.Color:=clLime;
  WizardForm.Bevel.Hide;
  WizardForm.BeveledLabel.Hide;
  WizardForm.Bevel1.Hide;

  WizardForm.NoIconsCheck.Width := ScaleY(16)

  with TLabel.Create(nil) do
  begin
    Parent:= WizardForm.SelectProgramGroupPage;
    SetBounds(WizardForm.NoIconsCheck.Left + 18, WizardForm.NoIconsCheck.Top + 2, 0, 0)
    AutoSize:= True;
    Transparent := True;
    Font.Color := clLime;
    Caption := SetupMessage(msgNoProgramGroupCheck2);
  end;
end;

Nightwishh · Конфигурация компьютера

Здравствуйте. Нужна помощь. При запуске инсталла выдаёт такую ошибку "could not call proc"

Код:

 #define NeedSize 4380
#define NeedInstallSize 78900

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
OutputDir=.

[ Code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

var
  PathLabel, TotalSpaceLabel, FreeSpaceLabel, NeedSpacelabel, InstallSpaceLabel: TLabel;
  FreeMB, TotalMB: Cardinal;
  Drive: String;

function PathCompactPathEx(pszOut: String; pszSrc: String; cchMax: UINT; dwFlags: DWORD): BOOL;
  external 'PathCompactPathEx{#A}@shlwapi.dll stdcall';

function ShortPath(Input: String; Length: Integer): String;
begin
  Result := StringOfChar(#32, 260);
  PathCompactPathEx(Result, Input, Length, 0);
end;

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;

function MbOrTb(Float: Extended): String;
begin
  if Float < 1024 then Result:= NumToStr(Float)+' Мб' else
    if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+' Гб' else
      Result:= NumToStr(Float/(1024*1024))+' Тб';
end;

procedure DirEditOnChange(Sender: TObject);
begin
  Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
  GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
  TotalSpaceLabel.Caption:= 'Всего места на диске: '+MbOrTb(TotalMB);
  FreeSpaceLabel.Caption:= 'Доступно места на диске: '+MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
  InstallSpacelabel.Caption:= 'Требуется места для установки: '+MbOrTb({#NeedInstallSize});
  NeedSpaceLabel.Caption:= 'Требуется места на диске: '+MbOrTb({#NeedSize});
  WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
  PathLabel.Caption := ShortPath('Install Path:' + #32 + TEdit(Sender).Text, 55);
end;

procedure InitializeWizard();
begin
  with WizardForm do
  begin
    PathLabel := TLabel.Create(WizardForm)
    with PathLabel do
    begin
      Parent := DirEdit.Parent;
      Caption := ShortPath('Install Path:' + #32 + DirEdit.Text, 55);
      Transparent := True;
      Font.Size := 10;
      Left := DirEdit.Left;
      Top := DirEdit.Top + Round((DirEdit.Height - Height) div 2);
    end;
    DirEdit.OnChange := @DirEditOnChange;
    DirEdit.Hide;
  end;
  TotalSpaceLabel:= TLabel.Create(WizardForm);
  TotalSpaceLabel.AutoSize:= False;
  TotalSpaceLabel.SetBounds(0, 120, 300, 20);
  TotalSpaceLabel.Parent:= WizardForm.SelectDirpage;

  FreeSpaceLabel:= TLabel.Create(WizardForm);
  FreeSpaceLabel.AutoSize:= False;
  FreeSpaceLabel.SetBounds(0, 140, 300, 20);
  FreeSpaceLabel.Parent:= WizardForm.SelectDirpage;

  InstallSpacelabel:= TLabel.Create(WizardForm);
  InstallSpacelabel.AutoSize:= False;
  InstallSpacelabel.SetBounds(0, 160, 300, 20);
  InstallSpacelabel.Parent:= WizardForm.SelectDirpage;

  NeedSpaceLabel:= TLabel.Create(WizardForm);
  NeedSpaceLabel.AutoSize:= False;
  NeedSpaceLabel.SetBounds(0, 180, 300, 20);
  NeedSpaceLabel.Parent:= WizardForm.SelectDirpage;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then
  begin
    DirEditOnChange(nil)
  end;
end;

Всему виной вот эта строчка

Код:

PathLabel.Caption := ShortPath('Install Path:' + #32 + TEdit(Sender).Text, 55);

Моя фантазия небольшая и что со строкой делать я незнаю...

GolD18 · Отправлено: **04:21, 15-04-2013** | #**188**

saurn, Спасибо. Вставил ваш код и при компиляции выдает ошибку. Вот полностью мой код. Только цвет текста уже белый.

Mailchik · Отправлено: **06:45, 15-04-2013** | #**189**

Цитата Nightwishh:

При запуске инсталла выдаёт такую ошибку "could not call proc" »

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then
  begin
    DirEditOnChange(WizardForm.DirEdit);
  end;
end;

Вместо nil прописываете WizardForm.DirEdit. Или же:

Код:

PathLabel.Caption := ShortPath('Install Path:' + #32 + WizardForm.DirEdit.Text, 55);

Вместо TEdit(Sender).Text прописываете WizardForm.DirEdit.Text, но лучше первый вариант.

Nightwishh · Конфигурация компьютера

Mailchik, Спасибо большое, всё работает!