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

Автор: Steve Schafer

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.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 499 • TDictionary Custom Sort 6 523 • Fast Watermark Sources 6 314 • 3D Designer 9 255 • Sik Screen Capture 6 647 • Patch Maker 7 021 • Айболит (remote control) 7 031 • ListBox Drag & Drop 5 900 • Доска для игры Реверси 97 233 • Графические эффекты 7 236 • Рисование по маске 6 532 • Перетаскивание изображений 5 402 • Canvas Drawing 5 772 • Рисование Луны 5 479 • Поворот изображения 5 007 • Рисование стержней 3 562 • Paint on Shape 2 821 • Генератор кроссвордов 3 698 • Головоломка Paletto 2 980 • Теорема Монжа об окружностях 3 785 • Пазл Numbrix 2 495 • Заборы и коммивояжеры 3 177 • Игра HIP 2 144 • Игра Go (Го) 2 080 • Симулятор лифта 2 456 • Программа укладки плитки 2 121 • Генератор лабиринта 2 597 • Проверка числового ввода 2 274 • HEX View 2 604 • Физический маятник 2 214

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

Похожие по теме исходники