Скачать: CL | DM;

Длл   Найти похожие ветки 

← →
Ivolg   (2004-08-20 14:09) [0]

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

---

← →
[lamer]Barmaglot ©   (2004-08-20 14:13) [1]

FAQ?

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

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

---

← →
Суслик ©   (2004-08-20 14:16) [2]

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

---

← →
Ivolg   (2004-08-20 14:22) [3]

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

---

← →
Суслик ©   (2004-08-20 14:25) [4]

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

---

← →
[lamer]Barmaglot ©   (2004-08-20 14:28) [5]

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

---

← →
panov ©   (2004-08-20 14:50) [6]

Вот пример готового модуля для подключения 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.



---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c