| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Динамическая загрузка процедуры
bosso © (2003-09-17 13:15:00)
Имеем такую конструкцию:
procedure QT_Thunk; cdecl; external kernel32 name "QT_Thunk";
под 9х работать будет, под nt/xp - нет. Это понятно. Вопрос, как сделать так, чтобы из одного и того же exe-шника под 9х запускалось, а под nt не ругалось.
Ходили слухи, что надо процедуру динамически загружать через LoadLibraryEx, GetProcAddress. Если кто знает, дайте примерчик!
Bosso (2003-09-17 13:57:00) [1]
ладно, сам разобрался.
У кого такая же проблема, вот решение:
type
TProc = procedure;
var
Proc:TProc;
Kern:THandle;
...
Kern:= GetModuleHandle("kernel32");
@Proc:= GetProcAddress(Kern, "QT_Thunk");
if @Proc<>nil then
asm
call Proc;
...
| |
