[Johny777]

Tco 03, лови

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[code]
procedure CopyFolder(SourceFolder, DestFolder: String);
var
    oFS: Variant;
begin
    try
        if not DirExists(SourceFolder) then Exit;
        if not DirExists(DestFolder) then if not CreateDir(DestFolder) then Exit;
        oFS := CreateOleObject('Scripting.FileSystemObject');
        oFS.CopyFolder(RemoveBackslash(SourceFolder), DestFolder);
    except
        //ShowExceptionMessage;
    end;
end;


procedure InitializeWizard();
begin
    CopyFolder('C:\setup', 'C:\Intel\setup');
end;