10.12.2018, 22:42
|
Прохожий
|
|
Регистрация: 10.12.2018
Сообщения: 2
Версия Delphi: 10.3 CE
Репутация: 10
|
|
Код:
program MyProgram;
{$IFNDEF DEBUG}
{$WEAKLINKRTTI ON} // если вам не нужны новые возможности RTTI!
{$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])} // если вам не нужны новые возможности RTTI!
{$ENDIF}
uses
WinApi.Windows,
Vcl.Forms,
.....;
// *********************** Уменьшаем размер экзэшника *************************
{$IFNDEF DEBUG}
{$SETPEFLAGS IMAGE_FILE_RELOCS_STRIPPED} // Удаление из exe таблицы релокаций.
{$SETPEFLAGS IMAGE_FILE_DEBUG_STRIPPED} // Удаление из ехе Debug информации
{$SETPEFLAGS IMAGE_FILE_LINE_NUMS_STRIPPED} // Удаление из exe информации о номерах строк
{$SETPEFLAGS IMAGE_FILE_LOCAL_SYMS_STRIPPED} // Удаление local symbols
{$SETPEFLAGS IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP} // При запуске exe с компакта, флэшки, других извлекаемых устройств, считать exe в свап и запустить оттуда. Полезно, если нужно запустить программу с компакта, а потом попросить вставить другой...
{$SETPEFLAGS IMAGE_FILE_NET_RUN_FROM_SWAP} // Аналогично предыдущей, только для сетевых дисков
{$SETPEFLAGS IMAGE_FILE_AGGRESIVE_WS_TRIM} // Сообщаем ОС, что приложение умеет работать с памятью более 2 Гб
{$SETPEFLAGS IMAGE_FILE_EXECUTABLE_IMAGE} // Файл представляет собой исполняемый файл
{$ENDIF}
// ***************************************************************************
|