[EN130]

Converter - Программа конвертирует reg-файлы в формат *.iss (формат скриптов Inno Setup). Последняя версия: 0.1.3 [11.09.2009] - Скачать; »

А наоборот как?

[Habetdin]

_Monster_, поиск использовать надо

Cкрипт для распаковки arc архивов

[Serega]

А наоборот как? »

Если хотите наоборот, то используйте ISTool. Ссылка есть в шапке темы.

[NameVizavi]

народ, обьясниет принципе связки Freearc+Precomp...
Ведь они сжимают по сходным алгоритмам или всетаки нет?
и ещо как в консоли, для прекомпа, задать не один файл, а директиву (папку) в целом, или все файлы из определенной папки?

[A1EXXX]

задать не один файл, а директиву (папку) в целом, или все файлы из определенной папки? »

Я создаю бантик со списком нужных мне файлов, выглядит примерно так:

precomp -slow 1.xxx
precomp -slow 2.xxx
precomp -slow 3.xxx

[NameVizavi]

A1EXXX,
тоесть сначало паковать фриарком, а потом прикомпом О_о
по поводу батника, я и сам додумался...
вот только при перепаковку игр, все файлы будеш прописывать, покаместь пальцы до костей не протреш

[A1EXXX]

NameVizavi, я сначала прекомпом, а потом фриарком. Да и обычно файлов для обработки прекомпом не так уж и много (в среднем до 10 больших файлов...)
Есть вот такие коды для рекомпрессии:

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

Для примера приведенного ниже, необходимо названия "прекомпрессированных" файлов привести к виду "имя_файла.расширение.pcf"

[Files]
Source: "precomp\*"; DestDir: "{tmp}"; Flags: ignoreversion overwritereadonly
Source: "Data\*"; DestDir: "{app}"; Flags: overwritereadonly recursesubdirs ignoreversion createallsubdirs sortfilesbyextension; AfterInstall: RecompressPCF

[code]
procedure RecompressPCF;
var
Tmp, Text,
InputFile, OutputFile: string;
n, ResultCode: Integer;
begin
if ExtractFileExt(CurrentFileName)='.pcf' then
begin
InputFile:=ExpandConstant(CurrentFileName);
n:=Length(InputFile);
while InputFile[n]<>'.' do
n:=n-1;
OutputFile:=Copy(InputFile, 1, n-1);
Text:=WizardForm.StatusLabel.Caption;
WizardForm.StatusLabel.Caption:='Рекомпрессия извлеченного файла...';
WizardForm.FileNameLabel.Caption:=OutputFile;
Tmp:=ExpandConstant('{tmp}\');
Exec(Tmp+'precomp.exe', '-d -o"'+OutputFile+'" "'+InputFile+'"', Tmp, SW_HIDE, ewWaitUntilTerminated, ResultCode);
DeleteFile(InputFile);
WizardForm.StatusLabel.Caption:=Text;
end;



2-ой вариант


[code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall
then
begin
Exec(ExpandConstant('{app}\precomp.exe'), ' -r data.pcf ', '', SW_HIDE, ewWaitUntilTerminated, res);
DeleteFile(ExpandConstant('{app}\data.pcf'));

сам ими не пользовался, т.к. привык задавать всё через командную строку....

[Qarmaa]

Как-то уже задавал подобный вопрос, но рабочего решения не нашли. Попробую ещё раз: Как, при установке, когда выполняются внешние программы сделать передвигаемым окно самого инсталлятора?

[МИШАНЧИК]

Подскажите пожалуйста! Пытаюсь при деинсталяции завершить 2 процесса. Так вот один убивается, а второй ни в какую.
Завершать посредством батника не хочется. Как бы сделать?

Код:

[Files]
Source: compiler:ISTask.dll; DestDir: {app}; Flags: ignoreversion
[_Code]
function RunTask(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';

function KillTask(ExeFileName: string): Integer;
  external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    if RunTask('USBSafelyRemove.exe', false) then
      KillTask('USBSafelyRemove.exe');
    if RunTask('USBSRService.exe', false) then  -  это не убивается
      KillTask('USBSRService.exe');
    UnloadDll(ExpandConstant('{app}\ISTask.dll'));
    end;
end;

[Habetdin]

if RunTask('USBSRService.exe', false) then - это не убивается »

Видимо, дело в том что этот процесс запущен службой и считается "системным"
Можно убить запуском команды

Код:

taskkill /f /im USBSRService.exe

Правда на Windows XP Home Edition не прокатит - там нет taskkill