DLL ISDone 0.6 final

Snoopak96 · 10 Июл 2012

alexa1995,
Неблагодори

PUNISHER · 10 Июл 2012

Snoopak96, как я понял, то он распаковку tak.exe в tmp не прописал?)

Лёха · 10 Июл 2012

Wcar · 10 Июл 2012

alexa1995, а почему бы через isexec не сделать?

alexa1995 · 10 Июл 2012

Wcar, Люблю я садо-мазо :-[

Wcar · 15 Июл 2012

В комплекте идет xdelta3.dll. Как понимаю, для создания разниц она не подойдет? Тогда дайте пожалуйста ссылку на рабочую дельту.

alexa1995 · 15 Июл 2012

В гугле забанили?

http://code.google.com/p/xdelta/downloads/list

Wcar · 15 Июл 2012

alexa1995 написал(а):
В гугле забанили?

http://code.google.com/p/xdelta/downloads/list

Нет, не забанили. Просто эта версия у меня не хочет работать. Пишет, что файл не может открыть.

alexa1995 · 15 Июл 2012

Wcar,
неправильно используешь...
http://krinkels.org/showthread.php?t=138
тебе в помощь

Wcar · 15 Июл 2012

alexa1995 написал(а):
Wcar,
неправильно используешь...
http://krinkels.org/showthread.php?t=138
тебе в помощь

Уверен, что использую правильно, ибо нашел другую версию, на ней все получается.

MarkusEVO · 7 Авг 2012

не могу разобраться с IsArcExtract

Мои действия:
1) Создаю архив в формате one.arc
2) Копирую архив в папку куда создаётся инсталл
3) Вписываю в скрипте ISDone.iss строку:
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\one.arc'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}\'), notPCFonFLY {PCFonFLY}) then break;
4) Делаю Компиляцию
5) Тестирую, всё проходит успешно!
6) Далее копирую в другую папку инсталл которые скомпилировался без архива .arc, выдаёт данную ошибку

Я так понимаю, что нужно всегда, чтобы был арзив рядом?????!!!!!

Games · 7 Авг 2012

Ты с компанентами делал? если нет тогда 1 поменяй на 0

MarkusEVO · 7 Авг 2012

Поставил, пробывал так, без успешно!
Может скинуть Вам сам скрипт и скрипт ISDone.iss?

Добавлено через 2 минуты

Games написал(а):
Ты с компанентами делал? если нет тогда 1 поменяй на 0

нет без них!

LexBell · 7 Авг 2012

MarkusEVO написал(а):
Я так понимаю, что нужно всегда, чтобы был арзив рядом?????!!!!!

а тебе нужно, чтоб архив, который у тебя прописан к распаковке, не был по указанному тобой пути, и при этом не выдавало ошибку? обратись к автору ISDone и попроси откомпилить DLL-ку специально для тебя, без обработки ошибок.

MarkusEVO · 7 Авг 2012

Код:

[UninstallDelete]
Type: filesandordirs; Name: {app}
var
  LabelPct1,LabelCurrFileName,LabelTime1,
  LabelStatus,LabelTime2,LabelTime3: TLabel;
  NewPB2         : TImgPB;
  CancelUnpackingBtn: HWND;
const
  PCFonFLY=true;
  notPCFonFLY=false;
var
  ISDoneCancel:integer;
  ISDoneError:boolean;
  PCFVer:double;

type
  TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:pAnsiChar): longword;

function WrapCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:ISDone.dll stdcall delayload';

function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external 'ISArcExtract@files:ISDone.dll stdcall delayload';
function IS7ZipExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'IS7zipExtract@files:ISDone.dll stdcall delayload';
function ISRarExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'ISRarExtract@files:ISDone.dll stdcall delayload';
function ISPrecompExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISPrecompExtract@files:ISDone.dll stdcall delayload';
function ISSRepExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISSrepExtract@files:ISDone.dll stdcall delayload';
function ISxDeltaExtract(CurComponent:Cardinal; PctOfTotal:double; minRAM,maxRAM:integer; InName, DiffFile, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISxDeltaExtract@files:ISDone.dll stdcall delayload';
function ISPackZIP(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString;ComprLvl:integer; DeleteInFile:boolean):boolean; external 'ISPackZIP@files:ISDone.dll stdcall delayload';
function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):boolean; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall delayload';

function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external 'Exec2@files:ISDone.dll stdcall delayload';
function ISFindFiles(CurComponent:Cardinal; FileMask:AnsiString; var ColFiles:integer):integer; external 'ISFindFiles@files:ISDone.dll stdcall delayload';
function ISPickFilename(FindHandle:integer; OutPath:AnsiString; var CurIndex:integer; DeleteInFile:boolean):boolean; external 'ISPickFilename@files:ISDone.dll stdcall delayload';
function ISGetName(TypeStr:integer):pAnsichar; external 'ISGetName@files:ISDone.dll stdcall delayload';
function ISFindFree(FindHandle:integer):boolean; external 'ISFindFree@files:ISDone.dll stdcall delayload';
function ISExec(CurComponent:Cardinal; PctOfTotal,SpecifiedProcessTime:double; ExeName,Parameters,TargetDir,OutputStr:AnsiString;Show:boolean):boolean; external 'ISExec@files:ISDone.dll stdcall delayload';

function SrepInit(TmpPath:pAnsiChar;VirtMem,MaxSave:Cardinal):boolean; external 'SrepInit@files:ISDone.dll stdcall delayload';
function PrecompInit(TmpPath:pAnsiChar;VirtMem:cardinal;PrecompVers:single):boolean; external 'PrecompInit@files:ISDone.dll stdcall delayload';
function FileSearchInit(RecursiveSubDir:boolean):boolean; external 'FileSearchInit@files:ISDone.dll stdcall delayload';
function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external 'ISDoneInit@files:ISDone.dll stdcall';
function ISDoneStop:boolean; external 'ISDoneStop@files:ISDone.dll stdcall';
function ChangeLanguage(Language:AnsiString):boolean; external 'ChangeLanguage@files:ISDone.dll stdcall';
function SuspendProc:boolean; external 'SuspendProc@files:ISDone.dll stdcall';
function ResumeProc:boolean; external 'ResumeProc@files:ISDone.dll stdcall';

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:pAnsiChar): longword;
begin
  ImgPBSetPosition(NewPB2,OveralPct/10);
  LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
  LabelCurrFileName.Caption:=MinimizePathName(ExpandConstant('{app}\')+CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width);
  ImgApplyChanges(WizardForm.Handle);
  Result := ISDoneCancel;
end;

procedure CancelUnpackingOnClick(hBtn:HWND);
begin
  SuspendProc;
  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then ISDoneCancel:=1;
  ResumeProc;
end;

procedure HideComponents;
begin
  LabelPct1.Hide;
  LabelCurrFileName.Hide;
end;

procedure ShowComponents2;
begin
   LabelPct1 := TLabel.Create(WizardForm);
  with LabelPct1 do begin
    AutoSize:=False;
    SetBounds(ScaleX(298), ScaleY(376), ScaleX(138), ScaleY(17));
    Transparent:=True;
    Font.Name:= 'AG_Helvetica';
    Font.Size:= 10;
    Font.Color:=clgray;
    BringToFront;
    Font.Style:=[fsBold];
    Parent := WizardForm;
  end;
    LabelCurrFileName := TLabel.Create(WizardForm);
  with LabelCurrFileName do begin
    AutoSize:=False;
    SetBounds(ScaleX(56), ScaleY(358), ScaleX(414), ScaleY(17));
    Transparent:=True;
    Font.Name:= 'AG_Helvetica';
    Font.Size:= 8;
    Font.Color:=clWhite;
    //Font.Style:=[fsBold];
    Caption:= '';
    Parent := WizardForm;
    Hide;
  end;
end;

function CheckError:boolean;
begin
  result:= not ISDoneError;
end;

procedure ISDoneExtract(CurStep: TSetupStep);
var
Comps1,Comps2,Comps3, TmpValue:cardinal;
FindHandle1,ColFiles1,CurIndex1,tmp:integer;
ExecError:boolean;
InFilePath,OutFilePath,OutFileName:pAnsiChar;
begin
  if CurStep = ssInstall then begin
    WizardForm.ProgressGauge.Hide;
    ShowComponents2;
    NewPB2:=ImgPBCreate(WizardForm.Handle, ExpandConstant('{tmp}\pbback.png'), ExpandConstant('{tmp}\pb.png'),56,372,512,27);
    LabelPct1.Show;
    LabelCurrFileName.Show;
    BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCallback(@CancelUnpackingOnClick,1));
    ImgApplyChanges(WizardForm.Handle);
    ISDoneCancel:=0;

ExtractTemporaryFile('unarc.dll');

#ifdef PrecompInside
ExtractTemporaryFile('CLS-precomp.dll');
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('packjpg_dll1.dll');
ExtractTemporaryFile('precomp.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef SrepInside
ExtractTemporaryFile('CLS-srep.dll');
#endif
#ifdef facompress
ExtractTemporaryFile('facompress.dll');
#endif
#ifdef records
ExtractTemporaryFile('records.inf');
#endif
#ifdef precomp
#if precomp == "0.38"
ExtractTemporaryFile('precomp038.exe');
#else
#if precomp == "0.4"
ExtractTemporaryFile('precomp040.exe');
#else
#if precomp == "0.41"
ExtractTemporaryFile('precomp041.exe');
#else
ExtractTemporaryFile('precomp038.exe');
ExtractTemporaryFile('precomp040.exe');
ExtractTemporaryFile('precomp041.exe');
#endif
#endif
#endif
#endif
#ifdef unrar
ExtractTemporaryFile('Unrar.dll');
#endif
#ifdef XDelta
ExtractTemporaryFile('XDelta3.dll');
#endif
#ifdef PackZIP
ExtractTemporaryFile('7z.dll');
ExtractTemporaryFile('PackZIP.exe');
#endif

ExtractTemporaryFile('russian.ini');

// Ïîäãîòàâëèâàåì ïåðåìåííóþ, ñîäåðæàùóþ âñþ èíôîðìàöèþ î âûäåëåííûõ êîìïîíåíòàõ äëÿ ISDone.dll
// ìàêñèìóì 96 êîìïîíåíòîâ.
    Comps1:=0; Comps2:=0; Comps3:=0;
#ifdef Components
    TmpValue:=1;
    if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue;     //êîìïîíåíò 1
    TmpValue:=TmpValue*2;
    if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue;     //êîìïîíåíò 2
    TmpValue:=TmpValue*2;
    if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue;    //êîìïîíåíò 3
    TmpValue:=TmpValue*2;
    if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue;    //êîìïîíåíò 4
//    .....
// ñì. ñïðàâêó
#endif

#ifdef precomp
  PCFVer:={#precomp};
#else
  PCFVer:=0;
#endif
    ISDoneError:=true;
    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
        ChangeLanguage('Russian');
        if not SrepInit('',1024,0) then break;
        if not PrecompInit('',128,PCFVer) then break;
        if not FileSearchInit(false) then break;

        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

        //if not ISArcExtract ( 0, 0, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        //if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\*.7z'), ExpandConstant('{app}\'), false, '') then break;
//    äàëåå íàõîäÿòñÿ çàêîììåíòèðîâàíûå ïðèìåðû ðàçëè÷íûõ ôóíêöèé ðàñïàêîâêè (÷òîáû êàæäûé ðàç íå ëàçèòü â ñïðàâêó çà ïðèìåðàìè)
(*
        if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
        if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
        if not ISRarExtract    ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
        if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
        if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'),    ExpandConstant('{app}\data.7z'), true) then break;
        if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'),   ExpandConstant('{app}\out.dat'), false) then break;
        if not ISPackZIP       ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
        if not ISExec          ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
        if not ShowChangeDiskWindow ('Ïîæàëóéñòà, âñòàâüòå âòîðîé äèñê è äîæäèòåñü åãî èíèöèàëèçàöèè.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

//    ðàñïàêîâêà ãðóïïû ôàéëîâ ïîñðåäñòâîì âíåøíåãî ïðèëîæåíèÿ

        FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
        ExecError:=false;
        while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
          InFilePath:=ISGetName(0);
          OutFilePath:=ISGetName(1);
          OutFileName:=ISGetName(2);
          ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
        end;
        ISFindFree(FindHandle1);
        if ExecError then break;
*)


        ISDoneError:=false;
      until true;
      ISDoneStop;
    end;
    HideComponents;
    ImgPBDelete(NewPB2);
  end;
  if (CurStep=ssPostInstall) and ISDoneError then begin
  LabelStatus.Caption:='Îòêàò óñòàíîâêè...';
  ImgPBDelete(NewPB2);
  Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
end;
end;

Я имею виду что допустим лежит файл setup.exe и здесь же архив .arc -> то распаковывается всё хорошо!
А если его нет то выдаёт ошибку...

Shegorat · 7 Авг 2012

MarkusEVO
1. Обязательно создавать 10 тем?
2. Какой такой мифический файл без названия ты хочешь распаковать?

MarkusEVO написал(а):
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\'), ExpandConstant('{app}\'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

3. Задавай вопрос конкретно, чтобы тебя поняли. Как вопрос задашь, так тебе и ответят.

MarkusEVO · 7 Авг 2012

Gnom написал(а):
а тебе нужно, чтоб архив, который у тебя прописан к распаковке, не был по указанному тобой пути, и при этом не выдавало ошибку?

Вообще да! если это возможно... так как впринцепе не очень соображаю во всем этом.
Shegorat
Я выше написал какой файл, и прописывал я его там.

LexBell · 7 Авг 2012

Gnom написал(а):
обратись к автору ISDone и попроси откомпилить DLL-ку специально для тебя, без обработки ошибок.

Почему не читаешь? Я тебе ответил, уже.

akkush · 24 Авг 2012

Greetings boys and girls !

I'm going crazy.

I have my 100% working ISDone 0.6f script. But if i want to run DXSETUP.exe from the second,third,etc DVD,but this stupid EXE always says :

OK. A constant is missing ,i know. {src} is not good ,because it points to "SETUP.EXE" 's DVD (first).
Here goes my Tasks and Run section :

[Tasks]
Name: DXCheck; Description: Install M$ DirectX
Name: VCCheck; Description: Install M$ Visual C++ 2008 SP1

[Run]
Filename: "Redist\DirectX\DXSETUP.exe"; Parameters: "/silent"; StatusMsg: Installing M$ DirectX... ; Tasks: DXCheck; Check: CheckError; workingdir: ;
Filename: "Redist\vcredist_x86.exe"; Parameters: "/q"; StatusMsg: Installing M$ VCRedist x86...; Tasks: VCCheck; Check: "CheckError and not IsWin64"; workingdir: ;

Then what can i do ?

LexBell · 24 Авг 2012

akkush, там-же написано - невозможно создать процесс, ввиду отсутствия файла DXSETUP.exe по указанному пути. Положи файл туда, откуда запускаешь, и все получится. И не вижу связи с ISDone. Вот вообще не вижу ни капли.

DLL ISDone 0.6 final

Старожил

Участник

Участник

Новичок

Участник

Новичок

Участник

Новичок

Участник

Новичок

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

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

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

Борода

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

Lord of Madness

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

Борода

Новичок

Борода