Динамическое подключение библиотеки

← →
ZavDim (2002-06-13 13:04) [0]

У меня такая штука:
Динамически подключаю библиотеку и работаю с ней.
В 98 и МЕ все хоккей - работает.
В 2000 при подключени выдается такая штука
Точка входа в процедуру ThunkConnect32 не найдена в библиотеке DLL KERNEL32.dll
Что ей надо? Когда пускаешь прогу под Delphi этого не происходит - все работает, а в свободном плавании - происходит.
Я пробовал Try Except - ни черта, это происходит черт знает где.
Может кто чего знает?
Код такой:

HInst:=LoadLibrary("rsrc32.dll");
try
if HInst>32 then
begin
FPointer:=GetProcAddress(HInst,"_MyGetFreeSystemResources32@4");
if FPointer<>nil then
begin
MyFunc:=TMyFunc(FPointer);
try
lDescr.Caption:="System:"+intToStr(MyFunc(rSystem))+"%";
lGDi.Caption:="GDI:"+intToStr(MyFunc(rGDi))+"%";
lUser.Caption:="User:"+intToStr(MyFunc(rUSER))+"%";
ShowMessage("all""right")
except
ShowMessage("What?")
end
end else
ShowMessage("Func not found")
end else
ShowMessage("Library not found");
finally
FreeLibrary(HInst);
ShowMessage("all")
end
А?!

← →
ZavDim (2002-06-13 13:28) [1]

В общем штука была вот в чем:
Этой библиотеки нет в 2000, а она у меня так стояла, что 2000 ее видела и пыталась зацепить, а она не цеплялась и та ругалась жутко.
Когда спрятал, то она ее не находит и все хоккей.
Извиняюсь, но напрягают эти разные Окошечки.

Динамическое подключение библиотеки Найти похожие ветки