Простой пример DLL

Советы » DLL » Простой пример DLL

library

MyDll; uses

Windows; function

SomeFunc(I: Integer): Integer; stdcall

; begin

if

Odd(I) then

Result := 3 * I + 1 else

Result := I div

2; end

; exports

SomeFunc; begin

end

.

И вот модуль импорта, который вы можете включить в любой проект, которому необходим доступ к функциям DLL:

unit

MyDllImport; interface

uses

Windows; function

SomeFunc(I: Integer): Integer; stdcall

; implementation

function

SomeFunc; external

'mydll.dll'; end

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com