fLoaded kannst'e eigentlich weglassen ... fDllHandle<>0 brächte das selbe Ergebnis
mußt nur das Freigeben noch anpassen
Delphi-Quellcode:
procedure TDll.UnLoad;
begin
{if fDllHandle <> nil then} FreeLibrary(fDllHandle);
fDllHandle := nil;
end;
und wo sollte bei LoadFunction die
Exception entstehen?
Delphi-Quellcode:
function TDll.LoadFunction(
Name:
String): Pointer;
begin
Result := GetProcAddress(fDllHandle, PChar(
Name));
if Result =
nil then
raise Exception.CreateFmt('
"%s" ist keine gültige Dll für PFControl', [fFileName]);
end;