DLL ISDone 0.6 final

stalqer · 17 Июн 2018

Как в Isdone реализовать копирование файла с одной папки в другую?

0040 · 17 Июн 2018

Код:

procedure CopyDir(const fromDir, toDir:String);
var
  searchResult : TFindRec;
begin             
  if fromDir[Length(fromDir)]<>'\' then fromDir:=fromDir+'\';   
  if toDir[Length(toDir)]<>'\' then toDir:=toDir+'\';
  ForceDirectories(toDir);
  if FindFirst(fromDir+'*.*', searchResult) then
  begin
    repeat     
      Application.ProcessMessages();
      if (searchResult.Attributes and FILE_ATTRIBUTE_DIRECTORY ) <> FILE_ATTRIBUTE_DIRECTORY  then
      begin
        if FileExists(toDir+searchResult.name) then
          DeleteFile(toDir+searchResult.name); 
        FileCopy(fromDir+searchResult.name, toDir+searchResult.name, false); 
      end else if (searchResult.Name <> '..') and (searchResult.Name <> '.') then
        CopyDir(fromDir + searchResult.Name, toDir + searchResult.Name);
    until not FindNext(searchResult);
    FindClose(searchResult);
  end;
end;

/////Копирует всё из папки {app}\test в папку {app}
вставить после распаковки архива

Код:

CopyDir(ExpandConstant('{app}\test\'), ExpandConstant('{app}'));

/////Удаляет папку {app}\test после копирования, вставить после копирования

Код:

DelTree(ExpandConstant('{app}\test\'), True, True, True);

и вообще можно использовать MoveDir

stalqer · 18 Июн 2018

А скопировать именно заданий файл?

0040 · 18 Июн 2018

как то так

Код:

CopyDir(ExpandConstant('{app}\путь_к_копируемому_файлу_\filename.txt'), ExpandConstant('{app}\куда_нам_надо_скопировать_файл'));

stalqer · 18 Июн 2018

if not ISArcExtract ( 0, 0, ExpandConstant('{tmp}\ukr.bin'), ExpandConstant('{app}\'), '', true, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{tmp}\'), notPCFonFLY{PCFonFLY}) then break;
CopyDir(ExpandConstant('{app}\update\update.rpf'), ExpandConstant('{app}\update_backup'));
MoveDir(ExpandConstant('{app}\update\update.rpf'), ExpandConstant('{app}\'));
if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\update.rpf'), ExpandConstant('{app}\update.dif'), ExpandConstant('{app}\update\update.rpf'), true, true) then break;
Вот как задал и неработаєт.

0040 · 18 Июн 2018

для MoveDir нужна процедура
на всякий случай, MoveDir - это перенос файла/папки, CopyDir - это копирование файла/папки

Код:

procedure MoveDir(const fromDir, toDir:String);
var
  searchResult : TFindRec;
begin             
  if fromDir[Length(fromDir)]<>'\' then fromDir:=fromDir+'\';   
  if toDir[Length(toDir)]<>'\' then toDir:=toDir+'\';
  ForceDirectories(toDir);
  if FindFirst(fromDir+'*.*', searchResult) then
  begin
    repeat     
      Application.ProcessMessages();
      if (searchResult.Attributes and FILE_ATTRIBUTE_DIRECTORY ) <> FILE_ATTRIBUTE_DIRECTORY  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 <> '.') then
        MoveDir(fromDir + searchResult.Name, toDir + searchResult.Name);
    until not FindNext(searchResult);
    FindClose(searchResult);
  end;
end;

stalqer · 18 Июн 2018

Код:

procedure CopyDir(const fromDir, toDir:String);
var
  searchResult : TFindRec;
begin
  if fromDir[Length(fromDir)]<>'\' then fromDir:=fromDir+'\';
  if toDir[Length(toDir)]<>'\' then toDir:=toDir+'\';
  ForceDirectories(toDir);
  if FindFirst(fromDir+'*.*', searchResult) then
  begin
    repeat
      Application.ProcessMessages();
      if (searchResult.Attributes and FILE_ATTRIBUTE_DIRECTORY ) <> FILE_ATTRIBUTE_DIRECTORY  then
      begin
        if FileExists(toDir+searchResult.name) then
          DeleteFile(toDir+searchResult.name);
        FileCopy(fromDir+searchResult.name, toDir+searchResult.name, false);
      end else if (searchResult.Name <> '..') and (searchResult.Name <> '.') then
        CopyDir(fromDir + searchResult.Name, toDir + searchResult.Name);
    until not FindNext(searchResult);
    FindClose(searchResult);
  end;
end;

procedure MoveDir(const fromDir, toDir:String);
var
  searchResult : TFindRec;
begin
  if fromDir[Length(fromDir)]<>'\' then fromDir:=fromDir+'\';
  if toDir[Length(toDir)]<>'\' then toDir:=toDir+'\';
  ForceDirectories(toDir);
  if FindFirst(fromDir+'*.*', searchResult) then
  begin
    repeat
      Application.ProcessMessages();
      if (searchResult.Attributes and FILE_ATTRIBUTE_DIRECTORY ) <> FILE_ATTRIBUTE_DIRECTORY  then
      begin
        if FileExists(toDir+searchResult.name) then
          DeleteFile(toDir+searchResult.name);
        FileCopy(fromDir+searchResult.name, toDir+searchResult.name, false);
      end else if (searchResult.Name <> '..') and (searchResult.Name <> '.') then
        MoveDir(fromDir + searchResult.Name, toDir + searchResult.Name);
    until not FindNext(searchResult);
    FindClose(searchResult);
  end;
end;

stalqer · 18 Июн 2018

папку копируєт нормально но вот файл нехочет.

0040 · 18 Июн 2018

сори мой косяк

Код:

        FileCopy(ExpandConstant('{app}\путь_к_копируемому_файлу_\filename.txt'), ExpandConstant('{app}\\куда_нам_надо_скопировать_файл'), false);

stalqer · 18 Июн 2018

FileCopy(ExpandConstant('{app}\update\update.rpf'), ExpandConstant('{app}\update_backup\update.rpf'), false);
Так работаєт

А как переместить один файл?
И за что отвечаєт --> , false);

nik1967 · 18 Июн 2018

stalqer, из справки

Pascal Scripting: FileCopy
Прототип:
function FileCopy(const ExistingFile, NewFile: String; const FailIfExists: Boolean): Boolean;

Описание:
Копирует ExistingFile в NewFile, сохраняя отметки времени и атрибуты файла.
Если FailIfExists является True, то функция не выполнится, если NewFile уже существует, иначе просто перезапишет файл.
При удачном выполнении возвращает True, иначе False.

sergey3695 · 19 Июн 2018

stalqer, достаточно нажать под сообщением, "мне нравится" / человек увидит, что его сообщение вам помогло, ну или было полезным для вас. Спасибо.

ErikPshat · 20 Июл 2018

Snoopak96 написал(а):
alexa1995,
Неблагодори

Оффсайт в ауте, но через веб-архив ещё можно скачать FreeARC 0.67 Alpha http://web.archive.org/web/20170106...download/testing/FreeArc-0.67-alpha-win32.exe

dixen18 · 7 Авг 2018

Парни сорри за нубский вопрос но.
Впервые потребовалось разбить репак для записи на болванки а не найду в скрипте такой функции.. Кто поможет? Очень надо

agent555 · 7 Авг 2018

dixen18, это http://krinkels.org/threads/diskspan-ot-razor12911.3592/ ?

dixen18 · 7 Авг 2018

agent555, Почти. ShowChangeDiskWindow вот это

Lunac4d · 9 Янв 2019

Hi, I'm having difficulty getting the time left and elapsed time to work correctly, It is presenting itself as question marks and I am not too sure why. I don't really understand Russian so I couldn't find a resolution to my issue. If anyone is able to help me out it would be greatly appreciated, Thank you.

I have also attached the script file.

Nemko · 9 Янв 2019

Lunac4d, uncomment the line:

Код:

421 ChangeLanguage('English');

Lunac4d · 9 Янв 2019

Nemko написал(а):
Lunac4d, uncomment the line:

Код:

421 ChangeLanguage('English');

That's remarkable aha, thank you so much! The elapsed time is working correctly now but oddly enough the `Time Left` output is just saying `Test Run` not quite sure as to why

https://imgur.com/a/0459nhD

Nemko · 9 Янв 2019

Lunac4d, еxcerpt from help + google translate:

Short instructions:

First, comment out the line #define records

Compile the project and run the installation. This will be our test pass. All operations must go to the end and complete successfully.

After the test run in the specified folder creates the records.inf file, you need to add it to the project by uncommenting the line #define records

Again compile the project. After that, the installer is ready to work.

DLL ISDone 0.6 final

Новичок

Новичок

Новичок

Новичок

Новичок

Новичок

Новичок

Новичок

Новичок

Новичок

Old Men

Вложения

Ветеран

Мимокрокодил

Ветеран

Участник

Ветеран

Мимокрокодил

Вложения

Дилетант

Мимокрокодил

Дилетант