Пример простейшей DLL в Delphi
Материал из DRKB
Пример простейшей DLL в Delphi[править | править код]
Код, представленный ниже демонстрирует простейшую DLL с всего одной функцией "TestDLL". Результат этой процедуры - диалоговое окошко с текстом.
library Test;
{ В хелпе Delphi 5 рекомендуют добавлять юнит ShareMem для улучшения управления памятью и экспортирования вызываемых строк. }
uses ShareMem, SysUtils, Windows, Dialogs;
{$R *.RES}
const TestConst = 'This is a tests DLL.';
{ Так же рекомендуется использовать параметр StdCall. Это позволяет сделать DLL совместимую с другими языками... }
procedure TestDLL(TestStr: string); stdcall
begin
MessageDlg(TestConst + Chr(13) + Chr(13) + 'Your string is: ' + TestStr, mtInformation, [mbOk], 0);
end;
exports TestDLL; // С таким именем процедура будет доступна в приложении...
begin
end.
Теперь достаточно достаточно объявить в приложении процедуру из DLL и скопировать саму DLL в директорию с приложением.
procedure TestDLL(TestStr: sting); stdcall; external 'Test.dll';
Source: Взято из http://forum.sources.ru
ID: 01985