vupu
Новичок
Просьба протестить инстал на установку просто компиляция проходит, а вот во во время установки после установки http://krinkels.org/threads/isslideshow.1929/
Ругается на строку кусок кода clist.strings[CurrentPicture - 1], 1, 1000);
ShowImage(pi
http://rghost.ru/8PXk2CPHw
В конце установки идет зависание что ли
Ругается на строку кусок кода 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;
В конце установки идет зависание что ли
Последнее редактирование: