[saurn]

Dodakaedr, это же системный файл. По вопросу: надо указывать абсолютный путь к файлу.

[habib2302]

всем привет. дайте пожалуйста скрипт на распаковку запароленных arc архивов. (не весь isdone т.е без всяких оформлений инстайла, без лишних файлов и т.д)

[Dodakaedr]

это же системный файл. По вопросу: надо указывать абсолютный путь к файлу. »

Абсолютный??? Тоисть так тоже не пойдет?

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
    begin
    if FileExists(ExpandConstant('{app}\msimg32.dll')) then DeleteFile(ExpandConstant('{app}\msimg32.dll'));
    if FileExists(ExpandConstant('{app}\IsTaskU.dll')) then DeleteFile(ExpandConstant('{app}\IsTaskU.dll'));
    end;
end;

Как удалять такие файлы?

[saneksanek]

Dodakaedr,
[Files]
Source: Dll\msimg32.dll;DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;
Source: Dll\IsTaskU.dll;DestDir: {app}; Flags: ignoreversion; Attribs: hidden system;

[sergey3695]

Dodakaedr, блин гугл еще робит (сам проверил ). (насчет что такое абсолютный путь).
По сути дела: msimg32.dll - системная библиотека, не удалять! IsTaskU.dll - как у тебя, удалять!
habib2302, справку дать?

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

function ISArcExtract

function ISArcExtract (CurComponent: Cardinal; PctOfTotal: double; InputFile, OutputPath, ExtractedPath: string; DeleteInFile: boolean; Password, CfgFile, WorkPath: string; ExtractPCF:boolean):boolean;
распаковывает arc архив(ы), заданный(ые) папкой и именем файла в InputFile, в каталог, указанный в OutputPath.
ExtractedPath - используется для распаковки части архива. Указывается имя папки, которая будет извлечена. Если данная фитча не требуется, то оставляйте данный параметр пустой строкой. Значение '*' распаковывает весь архив с последующим извлечением всех подкаталогов из корневых папок архива (мож кому понадобится);
CfgFile - путь и имя конфигурационного файла (arc.ini). Требуется для распаковки .arc архивов, созданных с использованием внешних компрессоров;
WorkPath - рабочий путь для распаковки временных файлов freearc'ом. Если при распаковке архива freearc создает большие темп-файлы (обычно это происходит если используются внешние компрессоры), то рекомендуется устанавливать рабочую папку в {app}, а то у пользователя может не быть места на системном диске, куда по умолчанию freearc пытается поместить темп-файл;
Password - пароль для распаковки архива(ов);
ExtractPCF - может иметь значение true или false. При распаковке FreeArc архива определяет будут ли распаковываться .pcf файлы "на лету". При активации данного режима при извлечении из .arc архива для каждого распакованного файла с расширением .pcf будет запускаться precomp, извлекающий данные из этого файла в ту же папку, и после удаляющий исходный. По идее данный режим должен увеличить скорость распаковки FreeArc архивов, содержащий много небольших pcf файлов, потому как сразу после извлечения одного из них, пока он еще будет находиться в кэше винды, можно быстренько его обработать precomp'ом, с минимальным обращением к винчестеру. Но на практике у меня получалось иначе, по крайней мере на XP (возможно на Win7 такой способ и выиграет стандартный 7z(без сжатия)+precomp+freearc).
В скрипте для параметра ExtractPCF применены константы notPCFonFLY и PCFonFLY - это на самом деле просто соответственно false и true. Применение таких констант позволит избежать путаницы с другим подобным параметром в функции распаковки arc-архивов - удалением входного архива (DeleteInFile).

Например:
if not ISArcExtract (0, 100, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}\data'), '', false, 'Password', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), notPCFonFLY) then break;
распаковывает все архивы с расширением .arc из папки {src} (сканировать подкаталоги или нет задается в функции инициализации поиска FileSearchInit) в папку {app}\data\ без удаления исходного файла, с ручным распределением процентов (без тестового прогона, распределение происходит по размерам исходных архивов), паролем «Password», файлом конфигурации {tmp}\arc.ini и рабочей папкой в {app}, без извлечения .pcf файлов "на лету".

saneksanek, это как файлы скрыть. Установка атрибута.

[habib2302]

sergey3695, а скрипт?

[Dodakaedr]

По сути дела: msimg32.dll - системная библиотека, не удалять! IsTaskU.dll - как у тебя, удалять! »

Мне надо оба файла удалить, чтобы не оставались следы программы. msimg32.dll - это для патча, IsTaskU.dll - вы сами знаете для чего. Если я правильно понял то надо так:

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
    begin
    if FileExists(ExpandConstant('{pf}\My Prog\msimg32.dll')) then DeleteFile(ExpandConstant('{pf}\My Prog\msimg32.dll'));
    if FileExists(ExpandConstant('{pf}\My Prog\IsTaskU.dll')) then DeleteFile(ExpandConstant('{pf}\My Prog\IsTaskU.dll'));
    end;
end;

Или как? Дайте пример. Желательно чтобы через константу {app}, чтобы пользователь смог сам указывать куда устанавливать программу.

[saneksanek]

Dodakaedr, Вы пробовали что я дал? добавьте флаг и секция унистал не нужна будет

[Dodakaedr]

saneksanek, Это не то. Мне нужно их удалить, а вы предлагаете их сделать скрытыми и системными...

[sergey3695]

habib2302, мда, например это не пример.
Password - пароль для распаковки архива(ов);
function ISArcExtract (CurComponent: Cardinal; PctOfTotal: double; InputFile, OutputPath, ExtractedPath: string; DeleteInFile: boolean; Password, CfgFile, WorkPath: string; ExtractPCF:boolean):boolean;
Например:

Код:

if not ISArcExtract (0, 100, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}\data'), '', false, 'Password', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), notPCFonFLY) then break;

если так с выделением непонятно. я не знаю тогда.
Dodakaedr, хочешь сказать что так не удалит

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then // Или usPostUninstall без разницы тут
    begin
    if FileExists(ExpandConstant('{app}\msimg32.dll')) then DeleteFile(ExpandConstant('{app}\msimg32.dll'));
    if FileExists(ExpandConstant('{app}\IsTaskU.dll')) then DeleteFile(ExpandConstant('{app}\IsTaskU.dll'));
    end;
end;

если {app} путь включая папку установки и там лежат файлы. твой же скрипт. поверял то хоть?
также можно флаг

Код:

Flags: uninsremovereadonly

uninsremovereadonly При удалении файла убираются все атрибуты "только для чтения" перед попыткой удаления
Это из справки.
ignoreversion Не сверять версии; перемещать существующие файлы не обращая внимание на номера версий.
Этот флаг применим только к файлам вашего приложения, но не к общедоступным файлам.
Вы проверяете код или так спрашиваете?