Размер выходного exe-файла Delphi XE

[min@y™]

так вы бы показали как, а то не понятно про что вообще разговор

я ждал первого заинтересованного.
короче...
1. создай в delphi XEx пустой проект.
2. скомпили его. посмотри размер ехе.
3. закрой проект (file -> close all).
4. удали из папки проекта подпапку win32 и файл "имя_проекта.dproj".
5. открой теперь в delphi файл "имя_проекта.dpr".
6. delphi конвертнёт его в новый формат и сообщит об этом.
7. скомпили проект.
8. посмотри в папку проекта и охреней от размера "имя_проекта.ехе".

Наткнулся я на эту фишку, когда портировал вчера на работе утилитку с d7 на dxe7.

[Vapaamies]

Что имеется в виду под пустым проектом? Пустой проект Win32 или пустой проект VCL? У Delphi с первой версии неотключаемая "умная сборка", унаследованная еще от Turbo Pascal, так что сам по себе он никакой лишней информации в exe-файл не добавляет.

Это в VCL архитектура такая, что в ней куча перестраховочного и умолчательного кода, который на деле может и не использоваться, а линкуется, поскольку объекты создаются в разделе инициализации модулей. Из-за этого uses Forms добавит к проекту сразу 200-400 КБ, даже если в нем не будет ни одной формы. Если же создать форму, в коде будут ссылки для чтения DFM, что еще метр прибавит, плюс расширенная RTTI, которая появилась вместе с обобщениями (не уверен, что именно, в XE).

Еще порядка 300 КБ приходится на... значок! Умолчательная иконка Embarcadero содержит полноцветные значки вплоть до 256x256, а они тоже немаленькие. Сжатие не используется, хотя оно появилось еще в Висте.

Вот так и набегает. Где-то 10-20% из любого VCL-проекта можно выкинуть ключом {$WEAKLINKRTTI} с параметрами и установкой флагов в exe-шнике, которые действуют на компилятор (в Delphi 6/7 не действуют).

{$IFNDEF DEBUG}
  {$WEAKLINKRTTI ON}
  {$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])}
{$ENDIF}

uses
  Windows;

{$IFNDEF DEBUG}
  {$SetPEFlags
    IMAGE_FILE_RELOCS_STRIPPED or
    IMAGE_FILE_DEBUG_STRIPPED or
    IMAGE_FILE_LINE_NUMS_STRIPPED or
    IMAGE_FILE_LOCAL_SYMS_STRIPPED}
{$ENDIF}

[Streletz]

Сообщение от min@y™

думаешь, это снизило бы размер на 80%?
попробуй сам. о результатах сообщи, плизЪ!
я подожду...

Не вопрос!
Debug
001.PNG
Release
002.PNG
Компилировал "пустой" проект. Все настройки по умолчанию. Даже специальную папку для этого заводить не стал.
Просто переключил Debug/Release

[min@y™]

Что имеется в виду под пустым проектом?

см. скриншот.

интересно, возможно ли ещё без ущерба сократить размер? –80% – это сильно гут, но хотелось бы выжать из ехе всё, что в принципе возможно.
а посему прОшу, товарищи: экспериментируйте дальше с моей подачи!

Компилировал "пустой" проект. Все настройки по умолчанию. Даже специальную папку для этого заводить не стал.

не смог найти переключатель debug/release! комбобокс в свойствах проекта эффекту не даёт.

[Vapaamies]

Сообщение от min@y™

см. скриншот.

Чей скриншот?

Мне экспериментировать незачем, я уже все написал. С описанными мной ключами и полной перекомпиляцией пустой проект с VCL-формой в XE2 дает порядка 1,2 МБ, после замены значка -- 900 КБ. Это предел.

По сравнению с Delphi 6/7 код RTL стал больше, и мои проекты на CoreLite (без VCL) получаются в 1,5-2 раза больше, чем из-под Delphi 6: типа 100 КБ вместо 60 КБ. Это тоже реальная метрика, я по map-файлам слежу.

[Streletz]

Сообщение от min@y™

а посему прОшу, товарищи: экспериментируйте дальше с моей подачи!

А, смысл?

Сообщение от min@y™

не смог найти переключатель debug/release!

Окно Project Manager -> Build Configurations.

Сообщение от min@y™

комбобокс в свойствах проекта эффекту не даёт.

И не даст. Он для выбора конфигурации, которую нужно настроить с помощью окна свойств проекта.

[min@y™]

Окно Project Manager -> Build Configurations.

о! ну нихрена себе квест!
спасибо.

прибейте топик кто-нибудь.

[Vapaamies]

Сообщение от min@y™

прибейте топик кто-нибудь.

Зачем прибивать-то? Я что, зря, что ли про оптимизацию уже после выставления конфигурации писал? Совсем не цените, уйду от вас.

[Stilet]

прибейте топик кто-нибудь.

Жадина ты.
Пусть и другим будет в какчестве пояснения как да чего.

[NetSpace]

а зачем вам уменьшать размеры проектов и программ? у вас же жёсткие диски не 50 Мб, а по 750-1000 Гигов. ради чего вам урезать размеры приложений?
или так, для себя. ради оптимизации?