Рубрика: Delphi

Полезности по Delphi.

Опубликовано

Уменьшаем размер исполняемого файла Delphi

1. Перейти в режим Release.
2. Заменить стандартную иконку на более легковесную.
3. Добавить в код проекта следующее:

{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])}
{$SETPEFLAGS
  $0001 or (* IMAGE_FILE_RELOCS_STRIPPED         *)
  $0004 or (* IMAGE_FILE_LINE_NUMS_STRIPPED      *)
  $0008 or (* IMAGE_FILE_LOCAL_SYMS_STRIPPED     *)
  $0020 or (* IMAGE_FILE_LARGE_ADDRESS_AWARE     *)
  $0200 or (* IMAGE_FILE_DEBUG_STRIPPED          *)
  $0400 or (* IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP *)
  $0800    (* IMAGE_FILE_NET_RUN_FROM_SWAP       *)
}

4. Использовать пакер, например MPRESS или UPX. По моему опыту MPRESS дает лучшие результаты.

Опубликовано

Консоль отладки в программе Delphi

Для доступа к консоли в режиме Debug достаточно в коде проекта сразу после program вставить следующий код:

{$IFDEF DEBUG}
  {$APPTYPE CONSOLE}
{$ENDIF}

 Далее в любой части программы нужно писать:

{$IFDEF DEBUG}
  // любой код
  WriteLn('Debug enabled!');
{$ENDIF}

Этот код будет выполняться только когда в проекте будет выбрана конфигурация Debug.