Текущий архив: 2004.09.19;
Скачать: CL | DM;

Вниз

размер Dll   Найти похожие ветки 

← →
ShimON ©   (2004-09-01 16:30) [0]

Здравствуйте, мастера!!! Вы меня уже ни один раз спасли, вот и сейчас прошу вас о помощи!!!
Есть 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.


---

← →
clickmaker ©   (2004-09-01 16:32) [1]

> Ни форм нет

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

---

← →
ShimON ©   (2004-09-01 16:33) [2]

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

---

← →
ssk ©   (2004-09-01 17:04) [3]

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

---

← →
OSokin ©   (2004-09-01 17:55) [4]

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

---

← →
clickmaker ©   (2004-09-01 17:58) [5]

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

---

← →
GuAV ©   (2004-09-01 23:16) [6]

clickmaker ©   (01.09.04 17:58) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.09.19;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.054 c