[retnyg]

http://krazz.net/retnyg/retCompress.zip

Zitat:

RetCompress unit
================================================== ===========
author: retnyg @ krazz.net/retnyg
================================================== ===========

License: use this code whereever you want, but keep credits

================================================== ===========

uses a undocumented API of ntdll to compress data.
compression rate is similar to ZIP, but a lot faster.

disadvantage: needs winNT, API may be changed or abandoned
in the future.

i added also the routines Inflate/Deflate, which just
packs sequential #0's, which is quite effective when
packing small exe's.

take also a look at the function HardCodedString, it's
commented out, because it needs the command inttostr,
which is in sysutils. It can be used to Hardcode a binary
string into a delphi app, such as to generate an exe by code.

example application can be found here:
http://www.delphipraxis.net/internal...ct.php?t=54428
( batch2exe, also written by me )

Information about the used Api Commands can be found here:

http://undocumented.ntinternals.net/

neu: nun ist ein demo-programm dabei, mit dem man dateien per drag und drop komprimieren kann.
in der form.caption wird dann die erreichte kompression angezeigt.
ein bug wurde beseitigt (bei unkomprimierbaren dateien wie jpg wurden leere files geschrieben)
ausserdem ist nun eine funktion zum komprimieren von dateien vorhanden.

die kompressionsroutine ist rund 15 mal schneller als winRar, und 10 mal schneller als winZip.
dafür werden nicht ganz so hohe kompressionsraten erreicht.