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

Вниз

Динамическая загрузка процедуры   Найти похожие ветки 

 
bosso   (2003-09-17 13:15) [0]

Имеем такую конструкцию:
procedure QT_Thunk; cdecl; external kernel32 name "QT_Thunk";
под 9х работать будет, под nt/xp - нет. Это понятно. Вопрос, как сделать так, чтобы из одного и того же exe-шника под 9х запускалось, а под nt не ругалось.
Ходили слухи, что надо процедуру динамически загружать через LoadLibraryEx, GetProcAddress. Если кто знает, дайте примерчик!


 
Bosso   (2003-09-17 13:57) [1]

ладно, сам разобрался.
У кого такая же проблема, вот решение:

type
TProc = procedure;

var
Proc:TProc;
Kern:THandle;
...
Kern:= GetModuleHandle("kernel32");
@Proc:= GetProcAddress(Kern, "QT_Thunk");
if @Proc<>nil then
asm
call Proc;
...



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

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

Наверх




Память: 0.46 MB
Время: 0.041 c
3-89683
NewD
2003-11-06 13:38
2003.11.27
Как сохранять содержимое файлов в БД и обратно ?


8-90002
S.A.S.
2003-07-31 17:43
2003.11.27
SkinEngine


1-89929
Relaxxx
2003-11-18 10:23
2003.11.27
Как мне сделать чтобы при скролинге одной таблицы.......


1-89842
Dred
2003-11-12 01:42
2003.11.27
Вычисление определенного интеграла


6-90048
Alexis
2003-10-03 09:32
2003.11.27
Требуется переслать файл с одного компа локалки на другой не...