[X-rem]

Так, хочу в свою прогу подключить планигы (dll файлы)

Есть вопросы :
1. Как создать dll и что в нём писать.
2. Что нужно написать в проге чтобы вызвать dll и выполнить его

Предположим что нужно сделать простую прогу

В dll'kе нужна функция FindFile(S: String):Boolen
Функция проверят, if FileExist(S) then ShowMessage('ОК');

А в Form1 будет : Edit1 и Button1
Как нажимаем на Button1 то загрузается dll и идёт функция:
FindFile(Form1.Edit1.Text);

Помогите разобраца с dll'ками ) Ваш нуб X-rem

[ART]

В инете дофига статей смотри там.

[X-rem]

Умнейший конечно ответ, но я всё ровно не понимаю)

[ART]

library Plugin;

uses
SysUtils,
Classes,
dialogs,Forms,
Unit1 in 'Unit1.pas' {Form1};

function FindFiles
begin
---
end;


function PluginName:Pchar;
begin
PluginName := 'Ля - ля -ля';
end;

procedure PluginExec;
begin
FindFiles;
end;


{$R *.res}

exports PluginName, PluginExec,FindFiles;

begin

end.


Что не понятного?

[X-rem]

Сообщение от ART

library Plugin;

uses
SysUtils,
Classes,
dialogs,Forms,
Unit1 in 'Unit1.pas' {Form1};

function FindFiles
begin
---
end;


function PluginName:Pchar;
begin
PluginName := 'Ля - ля -ля';
end;

procedure PluginExec;
begin
FindFiles;
end;


{$R *.res}

exports PluginName, PluginExec,FindFiles;

begin

end.


Что не понятного?

А вызвать как ?

[ART]

Если работаешь с плагинами, то во всех плагинах должна присутствовать
функция с одним именем (например PluginExec).

[X-rem]

Так как вызвать то ? )

[ART]

procedure TForm1.PluginExecute(FileName:string);
var
PlugExec : procedure;
handle : Thandle;
begin
handle := LoadLibrary(Pchar(FileName)); //Загружаем dll
if handle <> 0 then begin
@plugExec := GetProcAddress(handle,'PluginExec');
PlugExec;
FreeLibrary(handle);
end;
end;

[X-rem]

А где описать TForm1.PluginExecute(FileName:string); ?

[ART]

В главной программе!

[X-rem]

А где именно , в private в public в type или в impletentation

[ART]

да где хош.

[X-rem]

Щяс я проверю, из форума не уходи ) Я в Личку напишу )