Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.08.27;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.056 c
2-1268463646
serhiyiv
2010-03-13 10:00
2010.08.27
PNG PNG


2-1271923997
@!!ex
2010-04-22 12:13
2010.08.27
Как увеличить размер крестика(expand) в TTreeView?


2-1274523488
Delphist2
2010-05-22 14:18
2010.08.27
excel


2-1268812490
Вася
2010-03-17 10:54
2010.08.27
Как узнать, существует ли компонент?


15-1265220403
Jeltok
2010-02-03 21:06
2010.08.27
Помогите в 1 строчке по паскалю))





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский