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/