Пример простейшей DLL в Delphi

Delphi , Файловая система , DLL и PlugIns

Код, представленный ниже демонстрирует простейшую DLL с всего одной функцией "TestDLL". Результат этой процедуры - диалоговое окошко с текстом.

Code:

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'; Взято из http://forum.sources.ru

В статье описывается пример простейшей DLL на языке Delphi, которая содержит единственную функцию "TestDLL", выводящую диалоговое окно с текстом.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: DLL и PlugIns ::

Время компиляции файла: 2024-05-19 17:53:24
2024-05-20 02:22:27/0.0028560161590576/0