Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Внизразмер 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.031 c