Inno Setup Просьба протестить

vupu

Новичок
Просьба протестить инстал на установку просто компиляция проходит, а вот во во время установки после установки http://krinkels.org/threads/isslideshow.1929/
Ругается на строку кусок кода clist.strings[CurrentPicture - 1], 1, 1000);
ShowImage(pi
Код:
procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
var
  thePicture: integer;
  delta: double;
begin
  delta := WizardForm.ProgressGauge.Max / ( piclist.Count );
  thePicture := round( WizardForm.ProgressGauge.Position / delta );
  if( thePicture <> CurrentPicture  ) then
   begin
    CurrentPicture := thePicture;
    try
      ShowImage(piclist.strings[CurrentPicture - 1], 1, 1000);
    except
    end;
  end;
end;
http://rghost.ru/8PXk2CPHw
В конце установки идет зависание что ли
 
Последнее редактирование:
Сверху