Замена системных модулей для Delphi, Уменьшим размер WinAPI приложений на 9-11 кб. Опции

[Grom PE]

Как говорится, писал для себя, но думаю, пригодится и другим.

grompe.org.ru/files/delphisys.rar — Устарело, см. ниже

Если у вас чистый проект на Delphi, в котором используется только WinAPI, и по минимуму всяких встроенных функций языка, то большой шанс, что программу можно сократить примерно на 10 кб, используя эту замену системных модулей.


Пропатченный компилятор от Delphi 7 — DCC32HACK, нацеленный на минимальный размер WinAPI программ,
а также обновленная замена системных модулей внутри.

http://grompe.org.ru/files/dcc7hack.rar

[-=CHE@TER=-]

Вопрос - чем можно воспользоваться в Delphi для увеличения длины строки до нужного размера?
Если писать так:

CODE

SetLength(S, Len);

То при использовании DCC32HACK в готовый код пихается куча всякого барохла, в частности строчка имени программы указанная в:

CODE

Program PrgName;

Т.е. в исполняемый файл зачем-то пихается строчка "PRGNAME", если не писать "Program...", то на месте "PRGNAME" будет слово "PROGRAM". Зачем это делается - знают только в фирме Borland.
Если использовать:

CODE

S:=#32;
While Length(S) < Len Do S:=S + S[1];

То это долго. Можно конечно и так:

CODE

S:=#32;
While Length(S) < Len Do S:=S + S;
S:=Copy(S, 1, Len);

Но при большом Len это будет занимать в два раза больше чем надо памяти на финальном шаге - как следствие жуткие тормоза при реаллоцировании.
Есть какие-нибудь ещё способы удобные? Для тех случаев, когда нужна именно строка - когда нужен просто буфер, то там и GetMem()'ом обойтись можно...

Или тогда вопрос к Grom PE ты можешь в DCC32HACK как-нибудь перехватить работу с SetLength()?..