Советы по Delphi

         

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


Вот ДЕЙСТВИТЕЛЬНО простейшая Delphi 2.0 DLL:

library MyDll;
usesWindows;
function SomeFunc(I: Integer): Integer; stdcall;beginif Odd(I) then Result := 3 * I + 1else Result := I div 2;end;
exportsSomeFunc;
beginend.

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

unit MyDllImport;
interface
uses
Windows;
function SomeFunc(I: Integer): Integer; stdcall;
implementation
function
SomeFunc; external 'mydll.dll';
end.

-Steve Schafer [000948]



Содержание раздела