[adelina.dragonborn@vk]

Хочу сделать кнопку на странице установки - "пауза" (остановить стандартную распаковку)
Есть похожий скрипт где-нибудь?

Mat_y, Parameters: "/launcher"

[vint56]

Mat_y
[Icons]
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon; Parameters: /launcher;

[mat_y@vk]

vint56, и опят примного благодарен.
А есть ли способ заставить установщик найти папку на компьютере и скопировать ее в другое место?

[vint56]

mat_y@vk

читать дальше »

[Setup]
AppName=MyProg
AppVerName=MyProg
DefaultDirName={pf}\MyProg
DefaultGroupName=MyProg
OutputDir=.

[code]
type
Pchar = PAnsiChar;

function MoveFile(const srcFile, destFile: PChar): Integer; external 'MoveFileA@kernel32.dll stdcall';

procedure Backup (const Mydir,BackDir: string; MyFiles: array of string);
var
i:integer;
FindFiles: TFindRec;
begin
for i:=0 to GetArrayLength(MyFiles)-1 do
begin
if FindFirst(MyDir+MyFiles[i], FindFiles) then begin
if not DirExists(BackDir) then CreateDir(BackDir);
repeat MoveFile(MyDir+FindFiles.Name, BackDir+FindFiles.Name) until not FindNext(FindFiles);
FindClose(FindFiles);
RemoveDir(MyDir)
end;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
// Backup(ExpandConstant('{app}\Game\Bin\'), ExpandConstant('{app}\Backup\'),['TS3.exe','gameplay.package','*.precomp','*.bmp','*.pk3']);
Backup(ExpandConstant('{app}\Game\Bin\'), ExpandConstant('{app}\Backup\'),['*.pk3']);
// Backup(папка откуда брать файлы, папка куда перемещать файлы, файлы или маски файлов)
end;


procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usPostUninstall then begin
Backup(ExpandConstant('{app}\Backup\'), ExpandConstant('{app}\Game\Bin\'),['*']);
end;
end;

[Johny777]

vint56, mat_y@vk, Копирование папки методом "CopyFolder" FileSystemObject-а:
(http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx)

читать дальше »

Код:

#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif
type
    LPCTSTR = String;

function PathIsDirectory(pszPath: LPCTSTR): BOOL; external 'PathIsDirectory{#A}@Shlwapi.dll stdcall';
function PathFileExists(pszPath: LPCTSTR): BOOL; external 'PathFileExists{#A}@Shlwapi.dll stdcall';
function SetFileAttributes(lpFileName: LPCTSTR; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributes{#A}@Kernel32.dll stdcall';
function GetFileAttributes(lpFileName: LPCTSTR): DWORD; external 'GetFileAttributes{#A}@Kernel32.dll stdcall';


function CopyFolder(const Source, Destination: String; const Overwrite: Boolean): Boolean;
var
    ModifiedDestPath: String;
    oFS: Variant;
    adjAttr: BOOL;
begin
    if not PathFileExists(Source) then Exit;
    if not PathFileExists(Destination) then
    begin
        if not ForceDirectories(Destination) then Exit;
    end else if not PathIsDirectory(Destination) then Exit;
    ModifiedDestPath := AddBackslash(RemoveBackslash(Destination))
    if (GetFileAttributes(ModifiedDestPath) and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then
    begin
        adjAttr := SetFileAttributes(ModifiedDestPath, FILE_ATTRIBUTE_NORMAL);
        if not adjAttr then Exit;
    end;

    ////////////////////////////////////////////////////
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        Result := oFS.CopyFolder(Source, ModifiedDestPath, Overwrite);
    except
        ShowExceptionMessage();
    finally
        if adjAttr then SetFileAttributes(ModifiedDestPath, FILE_ATTRIBUTE_READONLY);
    end;
end;



procedure InitializeWizard();
begin
    CopyFolder('C:\test\VALVE\half-life 2\bin', 'C:\Copy', True);
end;

блок:

читать дальше »

Код:

    if not PathFileExists(Source) then Exit;
    if not PathFileExists(Destination) then
    begin
        if not ForceDirectories(Destination) then Exit;
    end else if not PathIsDirectory(Destination) then Exit;
    ModifiedDestPath := AddBackslash(RemoveBackslash(Destination))
    if (GetFileAttributes(ModifiedDestPath) and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then
    begin
        adjAttr := SetFileAttributes(ModifiedDestPath, FILE_ATTRIBUTE_NORMAL);
        if not adjAttr then Exit;
    end;

нужен чтоб не было исключений при копировании. Возможные причины появления исключений по ссылке выше, внизу

PS: Рекомендую копировать с перезаписью, чтоб не было исключения в случае если копируемая папка существует

[Mat_y]

vint56, Johny777, а если мне надо, чтобы папка копировалась, когда я выбрал соответствующий элемент при выборе компонентов?
Мне надо, чтобы файлы полностью скопировались из одной папки в другую, а потом часть из них заменилась на файлы из инсталлятора (записалась поверх).

[adelina.dragonborn@vk]

Mat_y, используй IsComponentSelected

[mat_y@vk]

vint56, А ваш код будет работать без

function MoveFile(const srcFile, destFile: PChar): Integer; external 'MoveFileA@kernel32.dll stdcall';

И еще... вроде я код вставил... фаил собрался... новая папка не появилась, зато папка по указанному адресу исчезла

папка откуда брать файлы, папка куда перемещать файлы, файлы или маски файлов

А мне не надо перемещать... мне важно именно скопировать.

Johny777, а как в Ваш код добавить IsComponentSelected?
CopyFolder('C:\test\VALVE\half-life 2\bin', 'C:\Copy', True); можно заменить на CopyFolder('{app}\1\', '{app}\2\, True); ???

[saurn]

Johny777, а как в Ваш код добавить IsComponentSelected? »

Копирование папки на шаге PostInstall, если выбран соответствующий компонент. Только в качестве примера.

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputBaseFilename=1
OutputDir=...

[Files]
Source: c:\windows\fonts\*; DestDir: {app}\1; Flags: external

[Components]
Name: copyfolder; Description: Копировать папку;

[Code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif
type
    LPCTSTR = String;

function PathIsDirectory(pszPath: LPCTSTR): BOOL; external 'PathIsDirectory{#A}@Shlwapi.dll stdcall';
function PathFileExists(pszPath: LPCTSTR): BOOL; external 'PathFileExists{#A}@Shlwapi.dll stdcall';
function SetFileAttributes(lpFileName: LPCTSTR; dwFileAttributes: DWORD): BOOL; external 'SetFileAttributes{#A}@Kernel32.dll stdcall';
function GetFileAttributes(lpFileName: LPCTSTR): DWORD; external 'GetFileAttributes{#A}@Kernel32.dll stdcall';


function CopyFolder(const Source, Destination: String; const Overwrite: Boolean): Boolean;
var
    ModifiedDestPath: String;
    oFS: Variant;
    adjAttr: BOOL;
begin
    if not PathFileExists(Source) then Exit;
    if not PathFileExists(Destination) then
    begin
        if not ForceDirectories(Destination) then Exit;
    end else if not PathIsDirectory(Destination) then Exit;
    ModifiedDestPath := AddBackslash(RemoveBackslash(Destination))
    if (GetFileAttributes(ModifiedDestPath) and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then
    begin
        adjAttr := SetFileAttributes(ModifiedDestPath, FILE_ATTRIBUTE_NORMAL);
        if not adjAttr then Exit;
    end;

    ////////////////////////////////////////////////////
    oFS := CreateOleObject('Scripting.FileSystemObject');
    try
        Result := oFS.CopyFolder(Source, ModifiedDestPath, Overwrite);
    except
        ShowExceptionMessage();
    finally
        if adjAttr then SetFileAttributes(ModifiedDestPath, FILE_ATTRIBUTE_READONLY);
    end;
end;


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

[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 Понимаю что не в тему, но может кто знает подскажите