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

Farser21 · Отправлено: **19:35, 25-01-2015** | #**2381**

Добрый вечер.
В моем установщике используется большое количество картинок в формате bmp, из-за этого установщик подвисает, возможно ли как-то вместо bmp использовать картинки в формате png?

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

Okta_333, Пробуйте:

Код:

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\D-3.arc'), ExpandConstant('{app}\'), '', false, 'пароль', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

Цитата Farser21:

Добрый вечер.
В моем установщике используется большое количество картинок в формате bmp, из-за этого установщик подвисает, возможно ли как-то вместо bmp использовать картинки в формате png? »

Farser21, Конечно можно с помощью ботвы.

Пример:http://rghost.ru/60554844

Okta_333 · Отправлено: **19:47, 25-01-2015** | #**2383**

Shift85

Та же ошибка.

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

Цитата Okta_333:

Та же ошибка. »

Okta_333, У вас какая версия инно (анси или юнникод)

Okta_333 · Отправлено: **19:56, 25-01-2015** | #**2385**

Inno Setup 5.4.2.ee2 (a) (build 110319)
А вот Анси или Юникод, я не знаю.

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

Цитата Okta_333:

Inno Setup 5.4.2.ee2 (a) (build 110319)
А вот Анси или Юникод, я не знаю. »

Анси.

Установите расширенную версию Inno Setup

Okta_333 · Отправлено: **20:13, 25-01-2015** | #**2387**

Shift85

У меня и есть расширенная. Inno Ultra, зелёненькая.

Farser21 · Отправлено: **20:17, 25-01-2015** | #**2388**

Shift85, можно ли подправить этот код, чтобы он мог использовать png картинки?

Код:

procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var
  i: Integer;
begin
  if Index = LastIndex then Exit;
  CompIndex := -1;
  for i := 0 to GetArrayLength(CompDescs) -1 do
  begin
    if (CompDescs[i].Index = Index) then
    begin
      CompIndex := i;
      Break;
    end;
  end;
  if (CompIndex >= 0) and (Area = iaItem) then
  begin
    if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
      ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
    CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
    CompDescImg.Show;
    BitmapImage.Hide;
    CompDescText.Caption := CompDescs[CompIndex].Description;
    CompDescText.Enabled := True;
    end else
  begin
    CompDescText.Caption := CustomMessage('ComponentsInfo');
    CompDescText.Enabled := False;
    CompDescImg.Hide;
    BitmapImage.Show;
    end;
  LastIndex := Index;

end;

procedure CompListMouseLeave(Sender: TObject);
begin
  CompDescImg.Hide;
  CompDescText.Caption := CustomMessage('ComponentsInfo');
  CompDescText.Enabled := False;
  LastIndex := -1;
  BitmapImage.Show;
end;

procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
var
  i: Integer;
begin
  i := GetArrayLength(CompDescs);
  SetArrayLength(CompDescs, i + 1);
  CompDescs[i].Description := ADescription;
  CompDescs[i].ImageName := AImageName;
  CompDescs[i].Index := AIndex - 1
end;

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

Цитата Okta_333:

У меня и есть расширенная. Inno Ultra, зелёненькая. »

Okta_333, Давайте скрипт с файлами гляну че да как.
Залейте куда нибудь на файлообменик.

Farser21, Весь скрипт с нуля придется переписывать.

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

Добрый день!
Имеется вопрос. Как можно убрать средствами IS последнюю папку в стринге "Dir":

Код:

function GetInstallDir(Dir:string):string;
begin
	RegQueryStringValue(HKLM,'SOFTWARE\Maxis\Programs','Install Dir',Dir);
  Result:=Dir;  //Dir - C:\Games\Maxis\Programs
end;

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