Вход



    НОВОЕ В БИБЛИОТЕКЕ
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

    НОВЫЕ ФАЙЛЫ
● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор


    ЛУЧШИЕ ПУБЛИКАЦИИ
● Бухаете? Тогда я иду к в...
● Программирование под And...
● Считаем сумму ряда
● Программирование под And...
● Программирование под And...
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Матричный калькулятор (3...
● Небольшая забава для про...
● Пара интересных задач

    ЛУЧШИЕ МАТЕРИАЛЫ
● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Умножение матриц (Паскал...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Сортировка Хоара (быстра...
● Темы курсовых работ (укр...
● Теория графов плюс бонус...

    10 ЛУЧШИХ ФАЙЛОВ
● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Гмурман. Теория вероятно...
● Математические формулы
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...


     
 
Карта программистов

Конструктор информеров



На сайте всего: 12
Посетителей: 12
Пользователей: 0

Создать сайт бесплатно
 БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ 

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » МАТЕРИАЛ К ЛЕКЦИЯМ [ ДОБАВИТЬ ]

Технология создания DLL (статическая загрузка)
 
1. File/New/Other/DLL Wizard/Ok

2.

library Project2;
uses
SysUtils,Classes;
{$R *.res}
begin
end.

3. Сохранение проекта dll- File/Save All

4. library FirstDLLProject;
uses
SysUtils,Classes;
function Summ(X,Y:Integer):Integer;StdCall;
begin
Result:=X+Y;
end;
exports Summ;
{$R *.res}
begin
end.

5. Компиляция dll

6. procedure TForm1.Button1Click(Sender: TObject);
var
h:integer;
begin
h:=Summ(10,34);
Application.MessageBox(PChar(IntToStr(h)), 'Результат = ');
end;

7,1 в разделе var
function Summ(X,Y:Integer):Integer;
stdcall;

7,2 после implementation
function Summ(X,Y:Integer):Integer;
external 'FirstDLLProject.dll' name 'Summ';

8. Компиляция проекта





Просмотров [ 717 ]  ●  09.02.08  ●   Рейтинг  [ 0% ]


Комментариев: [ 0 ]



  Ваше Имя  



   





Украинская Баннерная Сеть