Пример простейшей 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