Hallo zusammen, ich habe wieder ein Problemchen.
Und zwar habe ich eine
DLL, die zwei Threads hat, die dauerhaft laufen.
Nun möchte ich nach einer gewissen Zeit die
DLL "beenden". Ich habe diese Funktion gefunden, aber leider crasht dadurch nur die exe.
Code:
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;
end;
Kann mir da jemand weiterhelfen, wie ich die
DLL beendet bekomme?