[Serega]

YURSHAT,

При отправке сообщения были допущены следующие ошибки: : YURSHAT превысил максимальный объем сохраненных персональных сообщений и не может получать новые сообщения, пока не удалит часть старых.

[South]

Цитата Chelluga: насколько это сложно в написании поэтому и спросил » Я не говорю, что это не возможно, но действительно, писанины очень много... »

там действительно не очень много писать, вешается таймер на основной прогрессбар, ну и имея время начала установки, текущее время и зная текущую позицию и максимум прогрессбара не сложно посчитать оставшееся время

[Chelluga]

там действительно не очень много писать, вешается таймер на основной прогрессбар, ну и имея время начала установки, текущее время и зная текущую позицию и максимум прогрессбара не сложно посчитать оставшееся время »

А Вы бы не могли написать скрипт со всем вышеперечисленным??

[YURSHAT]

YURSHAT превысил максимальный объем сохраненных »

Удалил

[Serega]

Ну не проходит скин с этой версией »

Специально поставил себе ispack-5.3.7-unicode и скачал последнюю версию ISSkin.
Сразу скомпилировал первый скрипт ISSkinAdv.iss в каталоге ISSkin'а. Всё нормально скомпилировалось и запустилось, ошибок не было.

[mash]

Serega, вот посмотри какой скомпилированный этот демо скрипт у меня:

Вместо вот такого-серебранного окна:

У меня проходят только .bmp, а вид окна синий, обычный Хр-шный не серебрянный как должен бы быть, кнопки не те, обычные. Если у тебя был серебрянный точно, то я не знаю на что грешить, на ХР-SP3?
PS Да, все ошибки что были внизу, я поборол, спасибо тебе, а вот скин не идет, ..только он.
Еще проверил на соседней Х64 , синее окно демы, не серебрянное.
Кстати, обычная 5.3.7 со скинами дружит.

[volk1234]

mash перенес ваши сообщения в "правильную" тему.
На будущее - если в шапке темы что- то написано красными буквами - стоит прочитать

[mash]

Я Вас понял, но мой вопрос, хоть я и затронул скрипты, скорее про новую версию с юникодом, с прежними версиями (не юникод) у меня нет проблем.

[svensoft]

YURSHAT, помоги пожайлуста, сделал я рисунок .bmp (497 * 360), вставил код из шапки форума (для вставки фонового рисунка инсталлятора), все вроде запаковалось, в момент старта исталляционного пакета ошибка выскакивает - Runtime Error (at 35:2062) Could not call proc. Посмотри пожайлуста что там не так ?...

[code]
[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{C609B4C1-5331-4D1E-96A4-7420EC33C4CB}
AppName=Sven
AppVerName=Sven
DefaultDirName={pf}\Sven
DisableDirPage=yes
DefaultGroupName=Sven
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\Alexander\Ðàáî÷èé ñòîë
OutputBaseFilename=Sven (foto+video).exe
SetupIconFile=C:\Documents and Settings\Alexander\XXX\ico-èêîíêè\ya.ico
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
WizardImageFile=C:\Documents and Settings\Alexander\\XXX\image3.bmp
WizardImageStretch=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: "C:\Documents and Settings\Alexander\XXX\autorun.exe"; DestDir: "{app}"; Flags:

ignoreversion

[Run]
Filename: "{app}\autorun.exe"; Description: "{cm:LaunchProgram,Sven}";

Код:

var
  lbl1, lbl2, lbl3: TLabel;
  txt1, txt2, txt3: string;
  i: Integer;
  tmr1: TTimer;
  pnl: TPanel;
  
procedure tmr1Timer(Sender: TObject);
begin
  tmr1.Enabled:= False;
  
lbl1.Caption:= 'текст';
txt2:= 'текст2'; 
txt3:= 'текст3'; 

  lbl2.Caption:= '';
  for i:= 1 to Length(txt2) do begin
    if Application.Terminated then Break;
    lbl2.Caption:= lbl2.Caption + txt2[i];
    Application.ProcessMessages;
    Sleep(50);
  end;

  lbl3.Caption:= '';
  for i:= 1 to Length(txt3) do begin
    if Application.Terminated then Break;
    lbl3.Caption:= lbl3.Caption + txt3[i];
    Application.ProcessMessages;
    Sleep(25);
  end;
end;

procedure CreateComponents;
begin
  WizardForm.PageNameLabel.Hide;
  WizardForm.PageDescriptionLabel.Hide;
  WizardForm.ReadyLabel.Hide;

  lbl1:= TLabel.Create(WizardForm);
  with lbl1 do begin
    Left:= 0;
    Top:= 0;
    Width:= 400;
    Height:= 100;
    AutoSize:= False;
    WordWrap:= True;
    Alignment:= taCenter;
    Font.Style:= [fsBold];
    Font.Size:= 16;
    Font.Color:= clDkGray;
    Transparent:= True;
    Caption:= '';
    Parent:= WizardForm.ReadyLabel.Parent;
  end;

  lbl2:=TLabel.Create(WizardForm);
  with lbl2 do begin
    Left:= 0;
    Top:= 70;
    Width:= 400;
    Height:= 70;
    AutoSize:= False;
    WordWrap:= True;
    Font.Style:= [fsBold];
    Font.Size:= 10;
    Font.Color:= clTeal;
    Transparent:= True;
    Caption:= '';
    Parent:= WizardForm.ReadyLabel.Parent;
  end;

  lbl3:=TLabel.Create(WizardForm);
  with lbl3 do begin
    Left:= 0;
    Top:= 130;
    Width:= 400;
    Height:= 100;
    AutoSize:= False;
    WordWrap:= True;
    Font.Style:= [fsBold];
    Font.Size:= 8;
    Font.Color:= clBlue;
    Transparent:= True;
    Caption:= '';
    Parent:= WizardForm.ReadyLabel.Parent;
  end;

  tmr1:= TTimer.Create(WizardForm);
  with tmr1 do begin
    Interval:= 500;
    OnTimer:= @tmr1Timer;
  end;
end;

procedure ReadyPage;
var
  ready_str: string;
begin
  ready_str:= WizardForm.ReadyMemo.Text;
  with TLabel.Create(pnl) do
    begin
      SetBounds(45,115,WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height);
      Caption:= ready_str;
      with Font do
        begin
          Color:= WizardForm.ReadyLabel.Font.Color;
          Style:= WizardForm.ReadyLabel.Font.Style;
          Name:= WizardForm.ReadyLabel.Font.Name;
          Size:= WizardForm.ReadyLabel.Font.Size;
        end;
      Transparent:= True;
      Parent:= pnl;
    end;
  with TBevel.Create(WizardForm) do
    begin
      SetBounds(40,110, WizardForm.ReadyMemo.Width, WizardForm.ReadyMemo.Height);
      Parent:= pnl;
    end;
  with TLabel.Create(pnl) do
    begin
      AutoSize:= WizardForm.ReadyLabel.AutoSize;
      SetBounds(40,70, WizardForm.ReadyLabel.Width, WizardForm.ReadyLabel.Height);
      WordWrap:= WizardForm.ReadyLabel.WordWrap;
      Caption:= WizardForm.ReadyLabel.Caption;
      with Font do
        begin
          Color:= WizardForm.ReadyLabel.Font.Color;
          Style:= WizardForm.ReadyLabel.Font.Style;
          Name:= WizardForm.ReadyLabel.Font.Name;
          Size:= WizardForm.ReadyLabel.Font.Size;
        end;
      Transparent:= True;
      Parent:= pnl;
    end;
  pnl.Repaint;
end;

  procedure CurPageChanged(CurPageID: Integer);
  
  begin
  If CurPageID=wpWelcome then
  begin
      WizardForm.NextButton.OnClick(WizardForm.NextButton);
  end
  else
  If CurPageID=wpReady then
  begin
    WizardForm.BackButton.Hide;
    CreateComponents;
    ReadyPage;
  end
  else
  If CurPageID=wpFinished then
  begin
      WizardForm.NextButton.OnClick(WizardForm.NextButton);
  end;
  end;

[volk1234]

mash , я вас тоже понял. Затрудняюсь определить в силу того, что ни той ни той версией не пользовался, но судил по коду- раз есть код - значит сюда, если вопрос по юникоду без кода, туда