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

saneksanek · Отправлено: **19:51, 23-05-2014** | #**771**

Dodakaedr,
Мой косяк,извиняюсь.http://yadi.sk/d/_H8RyqgdR7VUj

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

saneksanek, Вы этот пост смотрели? Оно или нет?

saneksanek · Отправлено: **20:24, 23-05-2014** | #**773**

Dodakaedr,
С вашим предоставленным кодам выдает ошибку "Could not call proc." в чем может быть проблема?

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

saneksanek, а файлы скачали которые прилагаются в посте?

saneksanek · Отправлено: **20:49, 23-05-2014** | #**775**

Dodakaedr,
Нет,проглядел.Добавил ваши модули все заработало спс

Kashtan007 · Отправлено: **21:18, 23-05-2014** | #**776**

Dodakaedr, все отлично работает, но есть небольшой баг.
При открытии установщика проскакивает синий фон с названием установщика. С чем это может быть связано?
Вот видео, на нем все видно http://youtu.be/iRQXMh1y7g0

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

Цитата Kashtan007:

С чем это может быть связано? »

Не знаю, наверное это баг самой dll-ки...
Попробуйте вот это

saneksanek · Отправлено: **22:30, 23-05-2014** | #**778**

Теперь выходит проблема такая.
При запуске exe выходит так

Но если нажать далее а потом назад то все нормально будет

Можно-ли как-то исправить.
Конфликт я думаю идет с этим кодом.

Код:

var MainImage    : TBitmapImage;
    FinishedImage: TBitmapImage;
    WelcomeLabel1, WelcomeLabel2,StartMenuLbl,FinishedLabel,Welcome1,Welcome2,NeedSpaceLabel,SelectTasksLabel, FreeSpaceLabel, FinishedHeadingLabel: TLabel;

procedure InitializeWizard3();
begin
    ExtractTemporaryFile('1.bmp');
    MainImage := TBitmapImage.Create(WizardForm);
    with MainImage do
    begin
        Parent := WizardForm;
        Left := 0;
        Top := 0;
        Width := 500;
        Height := 313;
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
end;

ExtractTemporaryFile('5.bmp');
    FinishedImage := TBitmapImage.Create(WizardForm);
    with FinishedImage do
    begin
        Parent := WizardForm;
        Left := 0;
        Top := 0;
        Width := 500;
        Height := 313;
        Bitmap.LoadFromFile(ExpandConstant('{tmp}\5.bmp'));
    end;

Welcome1:= TLabel.Create(WizardForm);
  with Welcome1 do
  begin
    Left:= ScaleX(150);
    Top:= ScaleY(26);
    Width:= ScaleX(301);
    Height:= ScaleY(71);
    AutoSize:= false;
    Transparent:= true;
    WordWrap:= true;
    Font.Size:= 12;
    Font.Color:=clBlack
    Font.Style := [fsBold]
    Parent:= WizardForm;
    Font.Name:= 'Georgia'
    Caption:= ExpandConstant('{cm:Welcome1}')
 end;

Welcome2:=TLabel.Create(WizardForm);
  with Welcome2 do
  begin
    Left:= ScaleX(150);
    Top:= ScaleY(66);
    Width:= ScaleX(345);
    Height:= ScaleY(300);
    AutoSize:= false;
    WordWrap:= true;
    Font.Color:=clBlack
    Font.Name:= 'Georgia'
    Font.Size:= 10;
    Transparent:= true;
    Parent:= WizardForm;
    Caption:= ExpandConstant('{cm:Welcome2}')
end;

FinishedHeadingLabel:=TLabel.Create(WizardForm);
  with FinishedHeadingLabel do
  begin
    Left:= ScaleX(170);
    Top:= ScaleY(26);
    Width:= ScaleX(300);
    Height:= ScaleY(150);
    AutoSize:= false;
    WordWrap:= true;
    Font.Size:= 12;
    Font.Color:=clBlack
    Font.Name:= 'Georgia'
    Font.Style := [fsBold]
    Transparent:= true;
    Parent:= WizardForm;
    Caption:= WizardForm.FinishedHeadingLabel.Caption;
  end;

FinishedLabel:= TLabel.Create(WizardForm);
  with FinishedLabel do
  begin
    Left:= ScaleX(170);
    Top:= ScaleY(66);
    Width:= ScaleX(325);
    Height:= ScaleY(150);
    AutoSize:= false;
    WordWrap:= true;
    Transparent:= true;
    Font.Color:=clBlack
    Font.Size:= 10;
    Font.Name:= 'Georgia'
    Parent:= WizardForm;
    Caption:= ExpandConstant('{cm:Finished1}') + #10#13#10 + ExpandConstant('{cm:Finished2}')
end;
end;

procedure HideComponents;
begin
  Welcome1.Hide;
  Welcome2.Hide;
  FinishedHeadingLabel.Hide;
  FinishedLabel.Hide;

end;

procedure ShowComponents(CurPageID: Integer);
begin
  case CurPageID of
    wpWelcome:
    begin
      Welcome1.Show;
      Welcome2.Show;
end;
    wpFinished:
    begin
      FinishedHeadingLabel.Show;
      FinishedLabel.Show;
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  HideComponents;
  ShowComponents(CurPageID);
    if CurPageID = wpWelcome then
    begin
        WizardForm.OuterNotebook.Hide;
        FinishedImage.Hide;

    end
    else if CurPageID = wpFinished then
    begin
        WizardForm.OuterNotebook.Hide;
        MainImage.Hide;
        FinishedImage.Show;
    end
    else WizardForm.OuterNotebook.Show;
end;

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

Подскажите как освобождать процесс программы из системы перед удалением?

saneksanek · Отправлено: **21:24, 24-05-2014** | #**780**

Dodakaedr,
Если правильно понял вас,