Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Вниз
Длл Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.062 c
