[TERMINAL]

Gnom_aka_Lexander, Есть архив 90мб, я его распаковал и скомпилировал=на выходе получается размер 240мб, если сжимаю на максимуме зипом, тоже получается 90мб. А режим ультра может ошибки выдавать при распаковке на старых компах?

[Gnom_aka_Lexander]

TERMINAL, секции Setup и Files покажи тогда.
P.S. Можешь в личку, если опасаешься чего-то. не глядя на эти секции невозможно определить почему у тебя не жмутся файлы.

А режим ультра может ошибки выдавать при распаковке на старых компах? »

Нет,не должен. С чего-бы?

[TERMINAL]

Gnom_aka_Lexander, спасибо-разобрался.

[cliff99]

Прошу мне помочь кое в чём. Я в установщике использую опцию выбор компонентов. [Components] Name: g0; Description: Half - Life 2 Cinematic Mod Models Setup; Types: full custom; Flags: disablenouninstallwarning checkablealone fixed Name: g0\c8; Description: Установить доп контент и так далее; Types: full custom; Flags: dontinheritcheck [Files] Source: "E:\Setup Final ex\addons\MM\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: g0\c8 И при компиляции всё благополучно создаётся. Но эти самые компоненты ужимаются стандартными средствами inno setup. Мне же нужно чтобы при выборе компонента он подхватывался из файла bin(arc) , допустим компонент1.bin и ужимал я его сам. Дайте мне какой пример. Или обьясните как сделать. »

[Tco 03]

Johny777

для чтения ини используй сразу вложенность функций Ini := ConvertStringToIniFile(TextFileFromInternetToString('http://tululu.org/txt.php?id=38061')); PS: в данном случае качается не ини. Это просто пример »

insombia

как убрать кнопку отмены isdone чтобы стандартная отвечала за отмену? »

Ты думаешь что автор сделал отдельную кнопку отмены, чтобы потешить своё самолюбие? Типа: -"Раз сделал свою библиотеку, дай-ка и прикручу свою кнопочку"!
Могу предложить альтернативное решение, но при распаковке, при нажатии на кнопку отмена, архивы будут продолжать распаковываться и если пользователь будет долго думать, то архивы уже распакуются Проще сделать её точно такую же, как и оригинальная кнопка "Отмена" ибо без неё - будет уже косяк!
Если всё ещё настаиваешь, то можно сделать как-то так (на примере версии ISDone 0.6d):

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

Убераешь кнопку MyCancelButton
В процедуре: CurStepChanged убераешь: WizardForm.CancelButton.Hide
В процедуре: HideControls убераешь: MyCancelButton.Hide
За место процедуры: CancelButtonOnClick вставляешь это:

Код:

procedure CancelButtonClick(CurPage: Integer; var Cancel, Confirm: Boolean);
begin
  Cancel:=False;
  Confirm:=False;
if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = idYes
then begin
if not ISDoneError then begin
  SuspendProc;
  Cancel:=True;
end else begin
 ISDoneCancel:=1;
 ResumeProc;
end;
end;
end;

Не говорю что это единственное решение, так как нет предела для совершенства...

cliff99

Я автор популярного (как все утверждают) »

Нет лучше рекламы, чем самореклама!
Как мне однажды ответили на соседнем форуме: -"Тебе скажи - ты потом сделаешь RePack и будешь всем хвастаться". Мне кажется - сейчас как раз тот случай.

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

Ну и я в свою очередь, как фанат Half-Life скажу. Этот мод как сказка - чем дальше, тем модели всё страшнее... И у автора (Juergen Vierheilig) явно что-то не в порядке... - сделал из Half-Life какую-то порнуху.

[Tco 03]

В версии ISFreeArcExtract v.4.1 от Shegorat всё досконально ясно:

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

Код:

[ArcFiles]
Source: {src}\*.bin; DestDir: {app}; Disk: 1;
Source: {src}\Data2.bin; DestDir: {app}\data; Disk: 1; Components: Russian;
Source: {src}\Data3.bin; DestDir: {app}\data2; Disk: 1; Components: English;
Source: {src}\Data4.bin; DestDir: {app}\data3; Disk: 2;
Source: {src}\Data5.bin; DestDir: {app}\data4; Disk: 2; Components: Russian;
Source: {src}\Data6.bin; DestDir: {app}\data5; Disk: 2; Components: Russian;

Source     - Name of the archive
DestDir    - Destination directory for unpacking archives
Components - Names of components that need for unpacking archive
Tasks      - Names of tasks that need for unpacking archive
Disk       - Number of the disk that contains the archive
Password   - Acrhive password, if archive is encrypted (temporary not supported by unarc.dll)
FilesList  - Path to textfile with filenames which need to unpack from archives (temporary not supported by unarc.dll)

[cliff99]

Чёрт побери. Я не рекламирую ничего. Я даю понять что на доброе дело пойдёт ваша помощь.
Вот и всё.

[Johny777]

cliff99, вот тебе пример простой распаковки архива FreeArc в зависимости от выбранных компонентов на этапе ssPostInstall с отображением прогресса распаковки
я просто упростил и немного изменил код из шапки. Надеюсь это то что тебе нужно

пример без кнопки отмены

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

Код:

[Setup]
AppName=FreeArc Example
AppVerName=FreeArc Example 3.3
DefaultDirName={pf}\FreeArc Example
OutputDir=.

[Components]
Name: "main"; Description: "Main Files";
Name: "help"; Description: "Help Files"; 

[Files]
Source: unarc.dll; DestDir: {tmp}; Flags: dontcopy

[code]
const
  CP_ACP    = 0;           
  CP_UTF8   = 65001;         

function FreeArcExtract (callback: Longword; cmd1, cmd2, cmd3, cmd4, cmd5, cmd6, cmd7, cmd8, cmd9, cmd10: String): integer; external 'FreeArcExtract@files:unarc.dll cdecl';
function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD; lpMultiByteStr: PAnsiChar; cbMultiByte: Integer; lpWideCharStr: PAnsiChar; cchWideChar: Integer): Longint; external 'MultiByteToWideChar@kernel32.dll stdcall';
function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD; lpWideCharStr: PAnsiChar; cchWideChar: Integer; lpMultiByteStr: PAnsiChar; cbMultiByte: Integer; lpDefaultChar: Integer; lpUsedDefaultChar: Integer): Longint; external 'WideCharToMultiByte@kernel32.dll stdcall';

function AnsiToUtf8(const strSource: String): String;
var
  WideCharBuf: String;
begin
  SetLength( WideCharBuf, Length( strSource + chr(0) ) * 2 );
  SetLength( Result, Length( strSource + chr(0) ) * 2 );
  MultiByteToWideChar( CP_ACP, 0, strSource + chr(0), -1, WideCharBuf, Length(WideCharBuf) );
  WideCharToMultiByte( CP_UTF8, 0, WideCharBuf, -1, Result, Length(Result), 0, 0);
end;


function ArcCallBack(what: PAnsiChar; WriteSize, FileSize: Integer; str: PAnsiChar): Integer;
begin
  if (WriteSize <> 0) and (FileSize <> 0) then with WizardForm do
  begin
    ProgressGauge.Max := FileSize;
    ProgressGauge.Position := WriteSize;
    StatusLabel.Caption := 'Filesize:' + #32 + IntToStr(FileSize) + #32 + 'MB,' + #32 + 'Extracted:' + #32 + IntToStr(WriteSize) + #32 + 'MB';
  end;
  Application.ProcessMessages;
end;


procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    WizardForm.ProgressGauge.Position := 0;
    if IsComponentSelected('main') then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8('C:\setup'), '--', AnsiToUtf8('C:\Users\FreeArc\FaT-170.mp4.arc'), '', '', '', '', '');
    if IsComponentSelected('help') then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8('C:\setup'), '--', AnsiToUtf8('другой архив'), '', '', '', '', '');
  end;
end;

с кнопкой отмены:

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

Код:

[Setup]
AppName=FreeArc Example
AppVerName=FreeArc Example 3.3
DefaultDirName={pf}\FreeArc Example
OutputDir=.

[Components]
Name: "main"; Description: "Main Files";
Name: "help"; Description: "Help Files"; 

[Files]
Source: unarc.dll; DestDir: {tmp}; Flags: dontcopy

[code]
const
  CP_ACP    = 0;           
  CP_UTF8   = 65001;

var
  CancelCode: Integer;

function FreeArcExtract (callback: Longword; cmd1, cmd2, cmd3, cmd4, cmd5, cmd6, cmd7, cmd8, cmd9, cmd10: String): integer; external 'FreeArcExtract@files:unarc.dll cdecl';
function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD; lpMultiByteStr: PAnsiChar; cbMultiByte: Integer; lpWideCharStr: PAnsiChar; cchWideChar: Integer): Longint; external 'MultiByteToWideChar@kernel32.dll stdcall';
function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD; lpWideCharStr: PAnsiChar; cchWideChar: Integer; lpMultiByteStr: PAnsiChar; cbMultiByte: Integer; lpDefaultChar: Integer; lpUsedDefaultChar: Integer): Longint; external 'WideCharToMultiByte@kernel32.dll stdcall';

function AnsiToUtf8(const strSource: String): String;
var
  WideCharBuf: String;
begin
  SetLength( WideCharBuf, Length( strSource + chr(0) ) * 2 );
  SetLength( Result, Length( strSource + chr(0) ) * 2 );
  MultiByteToWideChar( CP_ACP, 0, strSource + chr(0), -1, WideCharBuf, Length(WideCharBuf) );
  WideCharToMultiByte( CP_UTF8, 0, WideCharBuf, -1, Result, Length(Result), 0, 0);
end;


function ArcCallBack(what: PAnsiChar; WriteSize, FileSize: Integer; str: PAnsiChar): Integer;
begin
  if (WriteSize <> 0) and (FileSize <> 0) then with WizardForm do
  begin
    ProgressGauge.Max := FileSize;
    ProgressGauge.Position := WriteSize;
    StatusLabel.Caption := 'Filesize:' + #32 + IntToStr(FileSize) + #32 + 'MB,' + #32 + 'Extracted:' + #32 + IntToStr(WriteSize) + #32 + 'MB';
  end;
  Application.ProcessMessages;
  Result:= CancelCode;
end;

procedure CancelFreeArcextracting(Sedner: TObject);
begin
  CancelCode := -127;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    WizardForm.ProgressGauge.Position := 0;
    with TButton.Create(nil) do
    begin
      Parent := WizardForm.InstallingPage;
      Caption := SetupMessage(msgButtonCancel);
      SetBounds(ScaleX(100), ScaleY(100), ScaleX(75), ScaleY(25));
      OnClick := @CancelFreeArcextracting;
    end;
    if IsComponentSelected('main') and (CancelCode <> -127) then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8('C:\setup'), '--', AnsiToUtf8('C:\Users\Âîâà\Desktop\FreeArc\FaT-170.mp4.arc'), '', '', '', '', '');
    if IsComponentSelected('help') and (CancelCode <> -127) then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8('C:\setup'), '--', AnsiToUtf8('äðóãîé àðõèâ'), '', '', '', '', '');
  end;
end;

теперь из-за тебя я знаю немного фриарк модуль. Спасибо!
библиотеку найдёшь тут http://freearc.org/download/InnoSetu...noSetup3_5.zip

[cliff99]

Johny777,
Спасибо. Библиотека у меня уже встроена и настроена.
Теперь просто компоненты привяжу.

Мне нужны были эти строки.

Код:

Name: "main"; Description: "Main Files"; Name: "help"; Description: "Help Files"; и if IsComponentSelected('main') then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8('C:\setup'), '--', AnsiToUtf8('C:\Users\FreeArc\FaT-170.mp4.arc'), '', '', '', '', ''); if IsComponentSelected('help') then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8('C:\setup'), '--', AnsiToUtf8('другой архив'), '', '', '', '', '');

[insombia]

Вот решил поделится своим скриптом,все кто хочет можете качать,скрипт без каких либо наворотов с подсказками в коде для новичков


cкрипт
P.S. большое спасибо Rikill/Wr0ng1eR за помощь
Обновил скрипт добавил текстурированные кнопки,музыку и на всякий случай srep самый новый