| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Длл [D6, D7, WinXP]

Ivolg ©   (2004-08-20 14:09:00) 

Привет всем. Я подключил длл вот мою так: h:=LoadLibRary('D:\My.dll');.
Вопрос: Как можно испльзовать мою функцию которая лежит в делл. Спасибо!!!

---

panov   (2004-08-20 14:50:00) [1]

Вот пример готового модуля для подключения DLL.
Разберись и будет тебе щастье.


unit proc;

interface
uses windows,sysutils,classes;


const _MyLibraryName ='..\dll\proc.dll'; //имя библиотеки
var
 hLib: THandle;

 ExecCmd:        procedure(const aCommand: String;const aShow, aWaitExit: Boolean);

procedure LoadLib;
procedure UnloadLib;

implementation

procedure LoadLib;
begin
 if hLib<>0 then Exit;
 hLib := LoadLibrary(PChar(_MyLibraryName));
 if (hLib=0) then
 begin
   raise Exception.Create('Не могу загрузить библиотеку '+_MyLibraryName);
   Exit;
 end;

 @ExecCmd :=             GetProcAddress(hLib,'ExecCmd');
end;

procedure UnloadLib;
begin
 FreeLibrary(hLib);
 hLib := 0;
end;

initialization
 hLib := 0;
end.



---

[lamer]Barmaglot   (2004-08-20 14:28:00) [2]

Ну что не понятно? Замени GetTime везде где она встречается на имя своей функции и будет тебе счастье...
Если и после этого не пойдет то надо читать книги...

---

Суслик   (2004-08-20 14:25:00) [3]

Все не понятно или не понятно, что не понятно?
Вопрос в чем?

---

Ivolg   (2004-08-20 14:22:00) [4]

Не пойму в факе.

---

Суслик   (2004-08-20 14:16:00) [5]

тут рядом в 5 см. есть топик "DLL" - там есть ответ

---

[lamer]Barmaglot   (2004-08-20 14:13:00) [6]

FAQ?

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621309&n=15

P.S.Ну народ ленивый пошел, даже в фак посмотреть не хочет...не говорю о том чтобы книжки почитать...

---

Наверх