Выгрузка из памяти 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?

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