Показать сообщение отдельно
  #8  
Старый 10.12.2018, 22:42
slaidouh77 slaidouh77 вне форума
Прохожий
 
Регистрация: 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}
// ***************************************************************************
Ответить с цитированием