|
#46
15-10-2014, 06:23
|
||||
|
||||
|
Quote:
I use this unpack_chronocross.7z and work fine, for srep and precomp. maybe can you try this files. Im working in GUI application too for extraction in VS 
|
| Sponsored Links |
|
#47
15-10-2014, 07:18
|
|||
|
|||
|
Quote:
your files are not equal to my MU, if you are using different compression from my arc.ini, the program will extract only the folders or anything- you can not create a universal program, the maximum you can create a program that compresses and decompresses only specified methods in those methods  one creates its algorithmic methods and sets my MU, so you always have the decompressor ready to use, with regard arc, rar, zip, instead it is universal Tested Code:
-ep-- -r -lc- -mt1 -mrep:263mb+srep+exe+delta+lzma:150mb:normal:bt4:128 Last edited by Dante1995; 28-12-2014 at 20:54.
|
| The Following 4 Users Say Thank You to Dante1995 For This Useful Post: | ||
|
#48
15-10-2014, 08:26
|
||||
|
||||
|
Quote:
Code:
-mrep:263mb+srep+exe+delta+lzma:150mb:normal:bt4:128 if you use 2 Code:
-msrep+exe2+delta+lzma:a1:mfbt4:d158m:fb273:mc1000:lc8 2 is better Why? because "rep" generate a entropy thats srep lzma can't compress and generate double compression.(innecesary) Bulat says rep= use files less 1GB Srep= Use files more 1GB Data1.rar PD: maybe i have the wrong MU application? MU.png
|
|
#49
15-10-2014, 08:30
|
||||
|
||||
|
Quote:
 I was working myself to one thing.  Cazzo mi freghi le iddeee... 
|
| The Following 2 Users Say Thank You to felice2011 For This Useful Post: | ||
ChronoCross (15-10-2014), Dante1995 (15-10-2014) | ||
|
#50
15-10-2014, 08:48
|
|||
|
|||
|
and the boys, this is a program done in 10 minutes and try a few things, then on pc dating is limited, no implementation to a relase from the first page ..
ChronoCross me method this is an example, not a recommendation then why use Visual Studio (VisualBasic, Visual C++), if you do not know Delphi code, use Inno Setup code: example found in InnoUltra InnoSetup 5\Script Quote:
Code:
;***************************************************************;
;****************** SHFileOperation.iss ************************;
;***************************************************************;
;* Include this file in project. Example:
;* #include "SHFileOperation.iss"
;***************************************************************;
;************************ 1 ************************************;
;* function CopyDir(const fromDir, toDir: string): Boolean;
;* Example 1 (without <fromDir> trailing backslash):
;* CopyDir('C:\TMP\MyApp', 'C:\TMP\Backup');
;* Result: C:\TMP\Backup\MyApp\..all <MyApp> subdirs and files
;* Example 2 (with <fromDir> trailing backslash):
;* CopyDir('C:\TMP\MyApp\', 'C:\TMP\Backup');
;* Result: C:\TMP\Backup\..all <MyApp> subdirs and files
;***************************************************************;
;************************ 2 ************************************;
;* function MoveDir(const fromDir, toDir: string): Boolean;
;* Example 1 (without <fromDir> trailing backslash):
;* MoveDir('C:\TMP\MyApp', 'C:\TMP\Backup');
;* Result: C:\TMP\Backup\MyApp\..all <MyApp> subdirs and files
;* Example 2 (with <fromDir> trailing backslash):
;* MoveDir('C:\TMP\MyApp\', 'C:\TMP\Backup');
;* Result: C:\TMP\Backup\..all <MyApp> subdirs and files
;***************************************************************;
;************************ 3 ************************************;
;* function DelDir(dir: string; toRecycle: Boolean): Boolean;
;* If <toRecycle> is True, <dir> deleted in Recycle Bin.
;***************************************************************;
;************************ 4 ************************************;
;* function RenameDir(const fromDir, toDir: string): Boolean;
;***************************************************************;
;***************************************************************;
;***************************************************************;
[_Code]
type
TSHFileOpStruct = record
Wnd: HWND;
wFunc: UINT;
pFrom: PANSICHAR;
pTo: PANSICHAR;
fFlags: Word; // FILEOP_FLAGS;
fAnyOperationsAborted: BOOL;
hNameMappings: HWND; // Pointer;
lpszProgressTitle: PANSICHAR; { only used if FOF_SIMPLEPROGRESS }
end;
const
// use in wFunc
{ $EXTERNALSYM FO_MOVE }
FO_MOVE = $0001;
{ $EXTERNALSYM FO_COPY }
FO_COPY = $0002;
{ $EXTERNALSYM FO_DELETE }
FO_DELETE = $0003;
{ $EXTERNALSYM FO_RENAME }
FO_RENAME = $0004;
// use in fFlags
{ $EXTERNALSYM FOF_MULTIDESTFILES }
FOF_MULTIDESTFILES = $0001;
{ $EXTERNALSYM FOF_CONFIRMMOUSE }
FOF_CONFIRMMOUSE = $0002;
{ $EXTERNALSYM FOF_SILENT }
FOF_SILENT = $0004; { don't create progress/report }
{ $EXTERNALSYM FOF_RENAMEONCOLLISION }
FOF_RENAMEONCOLLISION = $0008;
{ $EXTERNALSYM FOF_NOCONFIRMATION }
FOF_NOCONFIRMATION = $0010; { Don't prompt the user. }
{ $EXTERNALSYM FOF_WANTMAPPINGHANDLE }
FOF_WANTMAPPINGHANDLE = $0020; { Fill in
SHFILEOPSTRUCT.hNameMappings
Must be freed using
SHFreeNameMappings }
{ $EXTERNALSYM FOF_ALLOWUNDO }
FOF_ALLOWUNDO = $0040;
{ $EXTERNALSYM FOF_FILESONLY }
FOF_FILESONLY = $0080; { on *.*, do only files }
{ $EXTERNALSYM FOF_SIMPLEPROGRESS }
FOF_SIMPLEPROGRESS = $0100; { means don't show names of files }
{ $EXTERNALSYM FOF_NOCONFIRMMKDIR }
FOF_NOCONFIRMMKDIR = $0200; { don't confirm making any
needed dirs }
{ $EXTERNALSYM FOF_NOERRORUI }
FOF_NOERRORUI = $0400; { don't put up error UI }
function SHFileOperation(const lpFileOp: TSHFileOpStruct):Integer;
external '[email protected] stdcall';
{****************************************************************}
{****************************************************************}
{****************************************************************}
function BackupDir(const fromDir, toDir: string; IsMove: Boolean): Boolean;
var
fos: TSHFileOpStruct;
_fromDir, _toDir: string;
SR: TFindRec;
res: Boolean;
begin
ForceDirectories(toDir);
if IsMove then
fos.wFunc := FO_MOVE else
fos.wFunc := FO_COPY;
fos.fFlags := FOF_FILESONLY or FOF_SILENT or
FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
_fromDir:= AddBackslash(fromDir);
_toDir := AddBackslash(toDir);
if (Length(fromDir) = Length(_fromDir)) then
begin
res:= FindFirst(_fromDir + '*', SR);
try
while res do
begin
if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
begin
if SR.Attributes = FILE_ATTRIBUTE_DIRECTORY then
begin
_fromDir:= _fromDir + SR.Name + #0#0;
_toDir := _toDir + #0#0;
fos.pFrom := PANSICHAR(_fromDir);
fos.pTo := PANSICHAR(_toDir);
end else
begin
_fromDir:= _fromDir + SR.Name + #0#0;
_toDir := _toDir + SR.Name + #0#0;
fos.pFrom := PANSICHAR(_fromDir);
fos.pTo := PANSICHAR(_toDir);
end;
Result := (0 = ShFileOperation(fos));
_fromDir:= ExtractFilePath(_fromDir);
_toDir:= ExtractFilePath(_toDir);
end;
res := FindNext(SR);
end;
finally
FindClose(SR);
end;
end else
begin
_fromDir:= RemoveBackslashUnlessRoot(_fromDir) + #0#0;
_toDir := RemoveBackslashUnlessRoot(_toDir) + #0#0;
fos.pFrom := PANSICHAR(_fromDir);
fos.pTo := PANSICHAR(_toDir);
Result := (0 = ShFileOperation(fos));
end;
end;
{****************************************************************}
function MoveDir(const fromDir, toDir: string): Boolean;
begin
Result := BackupDir(fromDir, toDir, True);
end;
{****************************************************************}
function CopyDir(const fromDir, toDir: string): Boolean;
begin
Result := BackupDir(fromDir, toDir, False);
end;
{****************************************************************}
function DelDir(dir: string; toRecycle: Boolean): Boolean;
var
fos: TSHFileOpStruct;
_dir: string;
begin
_dir:= RemoveBackslashUnlessRoot(dir) + #0#0;
fos.wFunc := FO_DELETE;
fos.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
if toRecycle then
fos.fFlags := fos.fFlags or FOF_ALLOWUNDO;
fos.pFrom := PANSICHAR(_dir);
Result := (0 = ShFileOperation(fos));
end;
{****************************************************************}
function RenameDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
_fromDir, _toDir: string;
begin
_fromDir:= RemoveBackslashUnlessRoot(fromDir) + #0#0;
_toDir := RemoveBackslashUnlessRoot(toDir) + #0#0;
fos.wFunc := FO_RENAME;
fos.fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or
FOF_SILENT or FOF_NOCONFIRMATION;
fos.pFrom := PANSICHAR(_fromDir);
fos.pTo := PANSICHAR(_toDir);
Result := (0 = ShFileOperation(fos));
end;
{****************************************************************}
function FilesMaskOperation(const fromDir, toDir, fileMask: string; FileOp: Integer; EmptyDirRemove: Boolean; toRecycle: Boolean): Boolean;
var
fos: TSHFileOpStruct;
_fromDir, _toDir: string;
FSR, DSR: TFindRec;
FindResult: Boolean;
APath: string;
begin
APath := AddBackslash(fromDir);
FindResult := FindFirst(APath + fileMask, FSR);
try
while FindResult do
begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
begin
Case FileOp of
FO_COPY:
begin
fos.wFunc := FO_COPY;
end;
FO_MOVE:
begin
fos.wFunc := FO_MOVE;
end;
FO_DELETE:
begin
fos.wFunc := FO_DELETE;
if toRecycle then fos.fFlags := fos.fFlags or FOF_ALLOWUNDO;
end;
FO_RENAME:
begin
fos.wFunc := FO_RENAME;
end;
else
;
end;
fos.fFlags := fos.fFlags or FOF_FILESONLY or FOF_SILENT or
FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
_fromDir:= APath + FSR.Name + #0#0;
_toDir:= AddBackslash(toDir) + FSR.Name + #0#0;
ForceDirectories(ExtractFilePath(_toDir));
fos.pFrom := PANSICHAR(_fromDir);
fos.pTo := PANSICHAR(_toDir);
Result := (0 = ShFileOperation(fos));
end;
FindResult := FindNext(FSR);
end;
FindResult := FindFirst(APath + '*.*', DSR);
while FindResult do
begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and
not ((DSR.Name = '.') or (DSR.Name = '..')) then
{Recursion} FilesMaskOperation(APath + DSR.Name, AddBackslash(toDir) + DSR.Name, fileMask, FileOp, EmptyDirRemove, toRecycle);
FindResult := FindNext(DSR);
end;
finally
FindClose(FSR);
FindClose(DSR);
if EmptyDirRemove then RemoveDir(APath);
end;
end;
function CopyFiles(const fromDir, toDir, fileMask: string): Boolean;
begin
Result := FilesMaskOperation(fromDir, toDir, fileMask,
FO_COPY, False, False);
end;
function MoveFiles(const fromDir, toDir, fileMask: string): Boolean;
begin
Result := FilesMaskOperation(fromDir, toDir, fileMask,
FO_MOVE, True, False);
end;
function DelFiles(const fromDir, fileMask: string; toRecycle: Boolean ): Boolean;
begin
Result := FilesMaskOperation(fromDir, '', fileMask,
FO_DELETE, True, toRecycle);
end;
Last edited by Dante1995; 15-10-2014 at 13:59.
|
| The Following 4 Users Say Thank You to Dante1995 For This Useful Post: | ||
|
#51
21-10-2014, 16:14
|
|||
|
|||
|
Angry Birds Collection NSIS - IS
Update today
Last edited by Dante1995; 28-12-2014 at 20:54.
|
|
#52
24-10-2014, 09:40
|
|||
|
|||
|
C.I.U v1.0.0.6 by yener .iss
correct the color of transparency, changing from white to black
|
|
#53
25-10-2014, 23:48
|
||||
|
||||
|
hello Dante1995.
Is possible make a menu setup with videos Like a DVD? I try to make a menu setup like Assasin creed in unity but i think is wated time. I try to make setup menu videos in after effects and exported in xvid. But Idon't know how to add the correct buttons. thanks
|
|
#55
26-10-2014, 04:51
|
|||
|
|||
|
C.I.U SmallInstaller PSD
C.I.U SmallInstaller Phtoshop psd
Last edited by Dante1995; 28-12-2014 at 20:54.
|
| The Following User Says Thank You to Dante1995 For This Useful Post: | ||
arkantos7 (26-10-2014) | ||
|
#56
26-10-2014, 06:14
|
||||
|
||||
|
Dante1995, can u give a PRECOMP+SREP+IZMA compressor?
|
|
#57
26-10-2014, 07:09
|
|||
|
|||
|
Quote:
Last edited by Dante1995; 28-12-2014 at 20:54.
|
| The Following 2 Users Say Thank You to Dante1995 For This Useful Post: | ||
arkantos7 (26-10-2014), Souvik Giri (26-10-2014) | ||
|
#59
26-10-2014, 22:41
|
|||
|
|||
|
ISEE 2 in 1
Ansi + Unicode + dll pack ver 121216
Last edited by Dante1995; 28-12-2014 at 20:54.
|
| The Following User Says Thank You to Dante1995 For This Useful Post: | ||
papas (18-01-2018) | ||
 |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Inno Setup: Additional Libraries | altef_4 | Conversion Tutorials | 50 | 21-10-2020 09:59 |
| Blackbox Inno Setup Script | Kurutucu | Conversion Tutorials | 1190 | 18-08-2019 22:43 |
| INNO TUTORIAL - Using Unicode and ANSI Versions of INNO Setup | REV0 | Conversion Tutorials | 51 | 26-03-2015 06:57 |
| Copy file with Inno Setup Script | emrahcey | Software | 1 | 02-07-2010 08:24 |
Linear Mode
