Вопрос Как переместить из папки N в папку N\Game?

[zettend]

Здравствуйте!

Мне необходимо сделать что-то подобное:

1. Создать папку \N\Game
2. Переместить все файлы, кроме папки Game, из \N в папку \N\Game

P.S. Также как возможно это сделать МЕЖДУ распаковкой архивов game1.bin и game2.bin? Например через ISDone?

 

[Krinkels]

Ну, для создания/перемещения можно использовать пару замечательных функций

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

 

[Andreo Fadio]

@zettend,

Спойлер: Можно как-то так

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Code]
procedure ISMoveDir(const fromDir,toDir,notDir:String);
var
 searchResult: TFindRec;
begin
  if fromDir[Length(fromDir)]<>'\' then fromDir:=fromDir+'\';
  if toDir[Length(toDir)]<>'\' then toDir:=toDir+'\';
  if Pos(notDir, fromDir+searchResult.name) = 0 then ForceDirectories(toDir);
  if FindFirst(fromDir+'*.*', searchResult) then
  begin
    repeat
#ifdef IS_ENHANCED
      Application.ProcessMessages();
#endif
      if ((searchResult.Attributes and FILE_ATTRIBUTE_DIRECTORY ) <> FILE_ATTRIBUTE_DIRECTORY) and (Pos(notDir, fromDir+searchResult.name) = 0) then
      begin
        if FileExists(toDir+searchResult.name) then DeleteFile(toDir+searchResult.name);
        RenameFile(fromDir+searchResult.name, toDir+searchResult.name);
      end else if (searchResult.Name <> '..') and (searchResult.Name <> '.') and (Pos(notDir, fromDir+searchResult.name) = 0) then
       begin
        ISMoveDir(fromDir + searchResult.Name,toDir + searchResult.Name,notDir);
        RemoveDir(fromDir + searchResult.Name);
       end;
    until not FindNext(searchResult);
    FindClose(searchResult);
  end;
end;

function InitializeSetup(): Boolean;
begin
 ISMoveDir(ExpandConstant('{src}\N'),ExpandConstant('{src}\N\Game'),'\Game\');
end;

 

[Andreo Fadio]

P.S. Также как возможно это сделать МЕЖДУ распаковкой архивов game1.bin и game2.bin? Например через ISDone?

Должно сработать

...
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\game1.bin'), ExpandConstant('{app}\N'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
ISMoveDir(ExpandConstant('{app}\N'),ExpandConstant('{app}\N\Game'),'\Game\');
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\game2.bin'), ExpandConstant('{app}\M'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
...

 

[zettend]

@Andreo Fadio, а массив он сможет принять? Ну... несколько игнорируемых папок типа '\Game\'

 

[Andreo Fadio]

а массив он сможет принять? Ну... несколько игнорируемых папок типа '\Game\'

в данном примере нет.