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

Вниз

Выгрузка из памяти DLL файлов.   Найти похожие ветки 

 
inko   (2002-04-17 15:41) [0]

Следующую функцию я использую для выгрузки из памяти DLL файлов:


{---------------------------------------------------------------}
procedure TForm1.Button7Click(Sender: TObject);
var
hDLL : THandle;
aName : array[0..10] of char;
FoundDLL : Boolean;
begin
StrPCopy(aName, Edit1.Text);
FoundDLL := false;
repeat
hDLL := GetModuleHandle(aName);
if hDLL = 0 then
break;
FoundDLL := true;
FreeLibrary(hDLL);
until false;
if FoundDLL then
ShowMessage("File is successfully unloaded !")
else
ShowMessage("File is not found in memories !");
end
else
ShowMessage("File has an invalid format !");
end;
{---------------------------------------------------------------}

Когда я пытаюсь с помощью этой функции выгрузить не используемый DLL файл, выводится сообщение
ShowMessage("File is not found in memories !"); , а сразу после его закрытия - ошибка
"Access violation at address 72505CFB. Read of address 72505CFB".

Что происходит и как от этого избавится?


 
Alx2   (2002-04-17 15:49) [1]

DLL выгружается когда это "удобно" системе и когда никто больше ее не использует.


 
Alx2   (2002-04-17 15:50) [2]

И еще:
hDLL := GetModuleHandle(PChar(Edit1.Text));
Это надежнее.


 
Nicolas_   (2002-04-17 16:59) [3]

У тебя в коде полная неразбериха. К какому if относится последний else?



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

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

Наверх




Память: 0.45 MB
Время: 0.005 c
3-94346
62mkv
2002-04-10 10:27
2002.04.29
Ребята, есть ли у кого-нибудь отдельный дистрибут QReport 3 ?


1-94489
koks
2002-04-15 11:44
2002.04.29
TStatusBar - не отображается :((


3-94329
Makuha
2002-04-09 16:28
2002.04.29
Не могу правильно задать вопрос (смотри текст письма)


3-94309
Вероника
2002-04-09 10:07
2002.04.29
автоинкрементное поле


3-94305
Uncle SAM
2002-04-09 00:40
2002.04.29
A не работет такая схема......





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский