| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

размер Dll [D7, WinXP]

ShimON ©   (2004-09-01 16:30:00) 

Здравствуйте, мастера!!! Вы меня уже ни один раз спасли, вот и сейчас прошу вас о помощи!!!
Есть Dll ее код ниже, когда я ее компилю, ее размер 329кб, почему, как его уменьшить, я же ничем таким не пользуюсь!!! Ни форм нет, ни других объектов!!!

Код Dll.dll

library Dll;
uses
 SysUtils,
 Classes,
 Main in 'Main.pas';

{$R *.res}

begin
end.


Код Main.pas

unit Main;

interface

uses Dialogs;

type
 DBRec = record
   NameL1 :string[13];
   NameL2 :string[13];
   Name   :string[40];
   Url    :string[50];
   Exec   :string[90];
   Stat   :string[13];
   Auth   :string[40];
   Img    :string[50];
   text   :array [1..4] of string[254];
 end;

function PluginName(): PChar; stdcall; exports PluginName;
Function PluginType(): PChar; stdcall; exports PluginType;
Function ShowWin(App: integer): Boolean; stdcall; exports ShowWin;
function InitLib(App: Integer): Boolean; stdcall; exports InitLib;
function UnloadLib(): Boolean; stdcall; exports UnloadLib;
function IdentDisc (Dir: PChar): PChar; stdcall; exports IdentDisc;
function Add(Dir: PChar; Name: PChar; Screens: Boolean): Boolean; stdcall; exports Add;

implementation

Function PluginName: PChar; stdcall;
begin
 Result:= PChar('}{akep');
end;

function PluginType: PChar; stdcall;
begin
 Result:= PChar('DiscAdd');
end;

Function ShowWin(App: integer): Boolean; stdcall;
begin
end;

function InitLib(App: Integer): Boolean; stdcall;
begin
 ShowMessage('Я ИнтитЛиб');
end;

function UnloadLib(): Boolean; stdcall;
begin
 ShowMessage('Я АнлоадЛиб');
end;

function IdentDisc (Dir: PChar): PChar; stdcall;
begin
 ShowMessage('Я ИдентДиск');
 Result:= PChar('Xa - Xa');
end;

function Add(Dir: PChar; Name: PChar; Screens: Boolean): Boolean; stdcall;
begin
 ShowMessage('Я Эдд');
 Result:= true;
end;

end.


---

GuAV   (2004-09-01 23:16:00) [1]

clickmaker ©   (01.09.04 17:58) [5]

ещё предложите используя доку по РЕ написать dll самому в HEX-editore :)

---

clickmaker   (2004-09-01 17:58:00) [2]

и вообще, оставь только
begin
end.
Еще меньше будет

---

OSokin   (2004-09-01 17:55:00) [3]

Из DLL удали Classes и SysUtils еще

---

ssk   (2004-09-01 17:04:00) [4]

вместо ShowMessage() MessageBox() и модуль Windows вместо Dialogs

---

ShimON   (2004-09-01 16:33:00) [5]

Согласен, спасибо

---

clickmaker   (2004-09-01 16:32:00) [6]

> Ни форм нет

А ShowMessage по-твоему что?

---

Наверх