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

Недавно добавленные исходники
• Animation Loaders 1 055 • DeLiKaTeS Tetris (Тетрис) 5 989 • TDictionary Custom Sort 7 924 • Fast Watermark Sources 7 583 • 3D Designer 10 822 • Sik Screen Capture 8 163 • Patch Maker 8 349 • Айболит (remote control) 8 399 • ListBox Drag & Drop 7 259 • Доска для игры Реверси 101 519 • Графические эффекты 8 456 • Рисование по маске 7 821 • Перетаскивание изображений 6 414 • Canvas Drawing 6 800 • Рисование Луны 6 736 • Поворот изображения 5 835 • Рисование стержней 4 782 • Paint on Shape 3 479 • Генератор кроссвордов 4 500 • Головоломка Paletto 3 620 • Теорема Монжа об окружностях 4 409 • Пазл Numbrix 2 860 • Заборы и коммивояжеры 3 812 • Игра HIP 2 582 • Игра Go (Го) 2 595 • Симулятор лифта 2 975 • Программа укладки плитки 2 404 • Генератор лабиринта 3 154 • Проверка числового ввода 2 638 • HEX View 3 047

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

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