Простой пример 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 314 • TDictionary Custom Sort 6 359 • Fast Watermark Sources 6 146 • 3D Designer 9 090 • Sik Screen Capture 6 473 • Patch Maker 6 889 • Айболит (remote control) 6 867 • ListBox Drag & Drop 5 744 • Доска для игры Реверси 96 667 • Графические эффекты 7 086 • Рисование по маске 6 393 • Перетаскивание изображений 5 257 • Canvas Drawing 5 632 • Рисование Луны 5 332 • Поворот изображения 4 882 • Рисование стержней 3 462 • Paint on Shape 2 723 • Генератор кроссвордов 3 598 • Головоломка Paletto 2 891 • Теорема Монжа об окружностях 3 699 • Пазл Numbrix 2 432 • Заборы и коммивояжеры 3 115 • Игра HIP 2 072 • Игра Go (Го) 2 002 • Симулятор лифта 2 359 • Программа укладки плитки 2 060 • Генератор лабиринта 2 521 • Проверка числового ввода 2 204 • HEX View 2 534 • Физический маятник 2 148

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

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