[Mat_y]

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

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