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

Mat_y · Отправлено: **20:39, 26-07-2013** | #**861**

saurn, а если у меня разных компонента требуют копирования одной и той же папки, то мне надо будет сделать так:?

begin
case CurStep of
ssPostInstall: if IsComponentSelected('copyfolder1','copyfolder2') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);
end;

А Если у меня 2 разных компонента требуют копирования 2-х разных папок независимо? То так:

begin
case CurStep of
ssPostInstall: if IsComponentSelected('copyfolder1') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);
if IsComponentSelected('copyfolder2') then CopyFolder(ExpandConstant('{app}\2'), ExpandConstant('{app}\3'), True);
end;

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

Цитата Mat_y:

если у меня разных компонента требуют копирования одной и той же папки »

Код:

if IsComponentSelected('copyfolder') or IsComponentSelected('copyfolder2') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);

Цитата Mat_y:

А Если у меня 2 разных компонента требуют копирования 2-х разных папок независимо? »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of
      ssPostInstall:
      begin
          if IsComponentSelected('copyfolder') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);
          if IsComponentSelected('copyfolder2') then CopyFolder(ExpandConstant('{app}\2'), ExpandConstant('{app}\3'), True);
      end;
  end;
end;

Mat_y · Отправлено: **21:19, 26-07-2013** | #**863**

saurn, если у меня уже есть

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
    FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    ExecError:boolean;
    InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin

if CurStep = ssInstall then begin  //Если необходимо, можно поменять на ssPostInstall

Я могу просто ниже вставить?? во так:

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
    FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    ExecError:boolean;
    InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin

if CurStep = ssInstall then begin  //Если необходимо, можно поменять на ssPostInstal

if IsComponentSelected('copyfolder') or IsComponentSelected('copyfolder2') then CopyFolder(ExpandConstant('{app}\1'), ExpandConstant('{app}\2'), True);

Почему компилятор может ругаться на эту строчку уже во время установки, а не сборки:???

Код:

    try
        Result := oFS.CopyFolder(Source, ModifiedDestPath, Overwrite);
    except

Может проще сюда мой конфиг выложить? Хотя мне нравится учиться... главное учителей не замучить

Fakt_37 · Отправлено: **21:50, 26-07-2013** | #**864**

а кто что пишет в батнике для SrepInside&

Mat_y · Отправлено: **13:25, 27-07-2013** | #**865**

Ребята, выходные?

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

Привет всем, прогресс бар идет поверх "процентов" (Pct). как его сделать поверх прогресс бара

скрипт

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

Fakt_37

Цитата Fakt_37:

Ребят может вы поможете, возникла такая проблема через SrepInside жму файлы, в батнике пишу arc.exe a -ep1 -dses --dirs -s; -lc- -di -i2 -r -msrep:l256+lzma:a1:mfbt4:d200m:fb128:mc1000:lc8 data.arc packeddata\* (как обычно я делал) но теперь выдаёт ошибку ISDone.dll »

, попробуй новую версию SrepInside0.32 = http://rghost.ru/47598085
и плюс Dll ки от этой версии ISDone 0.6final - for FreeArc Alpha 2012 = http://krinkels.org//downloads.php?do=file&id=110

Fakt_37 · Отправлено: **02:37, 28-07-2013** | #**868**

Цитата audiofeel:

попробуй новую версию SrepInside0.32 »

дело было совсем в другом, я всё это уже пробовал, надо было всего лишь UAC на компе включить)

sergey3695 · Отправлено: **11:27, 28-07-2013** | #**869**

audiofeel, смотри в function ImgPBCreate
if Length(pb)>0 then Result.img1:=ImgLoad(hParent,pb,Result.Left,Result.Top,Result.Width,Result.Height,True,True) else Result.img1:=0;
if Length(bk)>0 then Result.img2:=ImgLoad(hParent,bk,Left,Top,Width,Height,True,False) else Result.img2:=0;
Последнее значение в ImgLoad
//IsBkg - если IsBkg=True, изображение будет выведено на фоне формы,
// поверх него будут отрисованы графические объекты (TLabel, TBitmapImage и т.д.),
// затем поверх всего будут выведены изображения с флагом IsBkg=False

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

sergey3695,Или я не понял или надо в другом месте искать, меняю значения с true на false, прогресс бара не видно или вобще не пикчер лейбл не видно и прогресс бара

type
TImgPB = record h: HWND; Left, Top, Width, Height, MaxWidth: Integer; img1, img2: Longint; end;

function ImgPBCreate(hParent: HWND; bk, pb: AnsiString; Left, Top, Width, Height: Integer): TImgPB;
begin
Result.Left:=Left;
Result.Top:=Top;
Result.Width:=0;
Result.Height:=Height;
Result.MaxWidth:=Width;
Result.h:= hParent;
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, Height, True, true) else Result.img2:=0;
ImgApplyChanges(Result.h);
end;