Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

написание библеотеки   Найти похожие ветки 

 
Andrey925   (2010-04-22 23:01) [0]

Доброго времени суток. Появилась такая проблема. Написал небольшую програмку. Из нее надо сделать библеотеку.Некак немогу разобраться как это сделать. Знаю как создать проект для dll но некак немогу понять как обьявить все переменые и как реализовать метод программы в библиотеке. Подскажите пожалуйста как это сделать?

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
 private
   { Private declarations }
   procedure WMDeviceChange(var Message: TMessage); message WM_DEVICECHANGE;

 public
   { Public declarations }
 end;

var
Form1: TForm1;

unique_number_in:boolean=false;
unique_number_out:boolean=false;
count_of_7_message:byte=0;

implementation

{$R *.dfm}

procedure TForm1.WMDeviceChange(var Message: TMessage);
begin
if (Message.wParam=7) then inc(count_of_7_message);
if (Message.wParam=32772) then unique_number_out:=true;
if (Message.wParam=32768) then unique_number_in:=true;
if (unique_number_out) and (count_of_7_message=3) then
begin
 unique_number_out:=false;
 count_of_7_message:=0;
 ShowMessage("Флешка была отключена");
end;

if (unique_number_in) and (count_of_7_message=6) then
begin
 unique_number_in:=false;
 count_of_7_message:=0;
 ShowMessage("Флешка была включена");
end;

Memo1.Lines.Add("Пришло сообщение с кодом "+IntToStr(Message.wParam));
Inherited;
end;
end.


 
Jeer ©   (2010-04-22 23:11) [1]

Из программы библиотеку сделать невозможно.
Начинай думать.


 
Andrey925   (2010-04-22 23:20) [2]

я понимаю что из программы нельзя сделать библиотеку. Но может можно метод программы реалтзовать в библиотеке или так нельзя сделать?


 
Сергей М. ©   (2010-04-23 00:33) [3]


> можно метод программы


Нельзя.
У программы нет методов.
Начинай думать.


 
Anatoly Podgoretsky ©   (2010-04-23 07:33) [4]

> Сергей М.  (23.04.2010 00:33:03)  [3]

Еще один желатель странного.


 
Вася   (2010-04-24 05:28) [5]

м...поиск по фразе "форма в dll"?а потом + ещё winapi подучить?)


 
_Юрий ©   (2010-04-24 09:44) [6]

Библиотека предполагает наличие некоего программного интерфейса.
Для того, чтобы библиотеку написать, надо для начала этот интерфейс определить - какие функции с какими сигнатурами будут экспортироваться.
Это первое, что надо сделать


 
DVM ©   (2010-04-24 11:26) [7]

начнем с того, что это не программа, а модуль.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.046 c
15-1271622604
Юрий
2010-04-19 00:30
2010.08.27
С днем рождения ! 19 апреля 2010 понедельник


15-1269692542
Kerk
2010-03-27 15:22
2010.08.27
Задачка


2-1268626597
NBAH1990
2010-03-15 07:16
2010.08.27
Как сделать исчезающую панель?


2-1273728307
Irisss
2010-05-13 09:25
2010.08.27
вкладка Data Explorer


2-1271738683
azamatufa
2010-04-20 08:44
2010.08.27
WEB-приложение на Delphi 7