Удалить DLL из памяти

Советы » DLL » Удалить DLL из памяти

function

KillDll(aDllName: string

): Boolean; var

hDLL: THandle; aName: array

[0..10] of

char; FoundDLL: Boolean; begin

StrPCopy(aName, aDllName); FoundDLL := False; repeat

hDLL := GetModuleHandle(aName); if

hDLL = 0 then

Break; FoundDLL := True; FreeLibrary(hDLL); until

False; if

FoundDLL then

MessageDlg('Success!', mtInformation, [mbOK], 0) else

MessageDlg('DLL not found!', mtInformation, [mbOK], 0); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com