it finally works for me. :)

here is what i did..
compressions method
arc a -m0 data.arc "C:\Program Files\*"
precomp.exe -c- data.arc
srep.exe -m3f data.pcf data.srep
arc a -mx data.cab data.srep

precompver=0.42

[ExtractSettings]
FreeArcFile1=Data.cab;DestDir:{app};Disk:1;PrecSre p:1

i put the arc.ini in setup.cab (i modified arc.ini a little according to the method i used above).



no error this time.
i tried two times with full success.

Thanks for ur help Razor 12911

i want to make progress bar vertical at the right corner of the screen of installer..

is it possible?

Inno Setup uses old delphi so no. other wise you could have use RotationAngle Property but anything is possible in delphi.

not unless if you are using a custom graphic progress. PBProc

check on ImgPBSetPosition procedure

procedure ImgPBSetPosition(var PB :TImgPB; Percent :Extended);
begin
if PB.img1<>0 then begin
NewWidth:=Round(PB.MaxWidth*Percent/100);
if PB.Width<>NewWidth then begin
PB.Width:=NewWidth;
ImgSetPosition(PB.img1,PB.Left,PB.Top,PB.Width,PB. Height);
end;
end;
end;

substitute width with height

i will try it and will inform u soon.. :D

i follow ur instructions and now inno is giving me the following error
please have a look

find

MaxWidth : integer;

change it to

MaxHeight : integer;

its not working

after changing this
" MaxWidth : integer;

change it to

MaxHeight : integer; "



i cant follow ur first instruction..


and when i try without step one (ur first instruction) its not working.
its still same progress bar. :(

can u give me an example script with such progress bar?

hmm, It works.

Might consider adding this to my installer

function ImgPBCreate(hParent :HWND; bk, pb :ansistring; Left, Top, Width, Height :integer):TImgPB;
begin
Result.Left:=Left+1;
Result.Top:=Top+1;
Result.Width:=Width-2;
Result.Height:=0;
Result.MaxHeight:=Height-2;
if Length(pb)>0 then Result.img1:=ImgLoad(hParent,pb,Result.Left,Result .Top,0,Result.Height,True,False) else Result.img1:=0;
if Length(bk)>0 then Result.img2:=ImgLoad(hParent,bk,Left,Top,Width,Hei ght,True,False) else Result.img2:=0;
end;

procedure ImgPBSetPosition(var PB :TImgPB; Percent :Extended);
begin
if PB.img1<>0 then begin
NewHeight:=Round(PB.MaxHeight*Percent/100);
if PB.Height<>NewHeight then begin
PB.Height:=NewHeight;
ImgSetPosition(PB.img1,PB.Left,PB.Top,PB.Width,PB. Height);
end;
end;
end;

find

NewWidth and MaxWidth

and change them to

NewHeight and MaxHeight

they are under var

i am sorry to bother you again and again but still error.

i attached the image.

find MaxWidth and Change it to MaxHeight

it's under var

:( sorry i cant find it.

Here's the script with your request

i try this script and still the same progress bar (look at pic) and its not showing filling of bar with progress of installation (empty progress bar).