TaTTDoGG
СПАСИБО!!!
Я так понял???
[more]#endif
repeat
MyError:=true;
if not ISDoneInitialize(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, 0, false, MainForm.Handle, {#NeedMem}, @ProgressCallback) then break;
repeat
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\autorun.inf'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\setup.exe'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\DVD1.bin'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD2.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD2.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 3 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD3.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD3.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ISArcExtract ( 2, 0, ExpandConstant('{src}\Soft'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 1 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD1.bin' ) then break;[/more]
СПАСИБО!!!
Я так понял???
[more]#endif
repeat
MyError:=true;
if not ISDoneInitialize(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, 0, false, MainForm.Handle, {#NeedMem}, @ProgressCallback) then break;
repeat
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\autorun.inf'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\setup.exe'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\DVD1.bin'), ExpandConstant('{app}'), false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD2.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD2.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 3 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD3.bin' ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\DVD3.bin'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ISArcExtract ( 2, 0, ExpandConstant('{src}\Soft'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 1 и дождитесь его инициализации.', ExpandConstant('{src}'),'DVD1.bin' ) then break;[/more]