Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 ее видела и пыталась зацепить, а она не цеплялась и та ругалась жутко.
Когда спрятал, то она ее не находит и все хоккей.
Извиняюсь, но напрягают эти разные Окошечки.



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

Форум: "Система";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
3-84890
kserg@ukr.net
2002-08-06 11:43
2002.08.26
: как через SQL узнать список всех раб.таблиц в БД ?


3-84935
Пушкин
2002-08-06 16:41
2002.08.26
UpdateSQL & StoredProc


14-85213
Вячеслав
2002-07-31 11:26
2002.08.26
FTP и кириллица


7-85271
kidman
2002-06-12 16:13
2002.08.26
wallpaper


3-84919
BlankAlex
2002-08-06 16:35
2002.08.26
D6 & TIBStoredrProc & TIBSQL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский