Почему при написании dll без rtl не выходит экспорт функции??

[dolphin705]

Необходимо написать минимальную dll на d7 (без использования rtl) Но после линковки функция не экспортируется, если писать с rtl То всё прекрасно работает. Выкладываю 2 примера. Видимо необходимо ещё глубже копать, в чём проблема?

[veniside]

трояны в аттаче, выложите код как текст сюда, вряд ли он такой уж большой

[dolphin705]

Почистил, остались только сорцы

[Alex Cones]

Пардон, а кто будет блок Exports писать?

[dolphin705]

Сообщение от Alex Cones

Пардон, а кто будет блок Exports писать?

А вот насчёт этого можно поподробнее? Может статьи какие нибудь есть? Буду рад любой полезной информации.

library Project;

function MessageBoxA(hWnd: integer; lpText, lpCaption: PChar; uType: integer): Integer; stdcall; external 'user32.dll' name 'MessageBoxA';

procedure mes; export;
begin
MessageBoxA(0,'Экспортная','',0);
end;

exports mes;
begin
end.

Почему этот код с rtl работает, а без неё не хочет?

[Alex Cones]

exports mes;
begin
end.

Тфу, блин, не заметил, он у вас есть.
В вашем коде в архиве с ходу кажется, что его нет:

exports mes;
begin
me;
MessageBoxA(0,'Îñíîâíàÿ','',0);
end.

На процедуру смахивает.

Скорее всего в самописных system и sysinit что-то пропустили.

[dolphin705]

Видимо в сами модули System.pas и SysInit.pas нужно лезть и дописывать самому, но в них чёрт ногу сломит... Может кто занимался таким?

[Alex Cones]

А чем не устраивает 14 минимальных килобайт? Хотите меньше - пишите на асме. Для дельфы это "минимум".

[mss]

> а без неё не хочет?

А чем она тебе помешала ?
Только не надо здесь гнусавить, мол, мне эти рантаймовые 30-40 кб жизнь исковеркали.. Сразу в топку такие "аргументы")

[dolphin705]

После этой http://www.interface.ru/home.asp?artId=5654 статьи стало интересно писать без ртл. Для меня + в том что ничего лишнего

Так выглядит с ртл и без изнутри!!!

Аргумент - Убрать неиспользуемые экспорты, как видите их достаточно