GetModuleHandle gibt zurück - FreeLibrary schlägt fehl

**DGL-luke**

Hallo,

ich habe eine DLL mit einer Form:

Delphi-Quellcode:

			library PFormularMan;

uses

  SysUtils,

  Classes,

  ufoMainForm in 'ufoMainForm.pas' {Mainform},

  uFormElements in 'uFormElements.pas',

  uPageManagement in 'uPageManagement.pas';

{$R *.res}

var mf: TMainform;

function Execute(param: Integer):Boolean; stdcall;

begin

 mf := TMainform.Create(nil);

 mf.Show;

 Result := true;

end;

procedure DeInit; stdcall;

begin

  if assigned(mf) then

    begin

      mf.Close;

      mf.Free;

    end;

end;

exports

  Execute,DeInit;

begin

end.

Das ist der komplette Code.

Wenn ich das Formular schließe und dann FreeLibrary aufrufe (von aussen natürlcih), bekomme ich eine AV an 0. Ich wollte deswegen vorher prüfen, ob die DLL noch da ist:

zusammenfalten · markieren

Delphi-Quellcode:

			function UnLoad(Rec: TModuleRec): Boolean;

begin

  Result := false;

  Rec.Handle := GetModuleHandle(PChar(rec.Name));

  Showmessage(PChar('ModuleHandle by GetNoduleHandle: ' + IntToStr(Rec.Handle)));

  if Rec.Handle <> 0 then

    begin

      Rec.DeInitFunc;

      FreeLibrary(Rec.Handle); <-- AV hier

      Result := true;

    end;

end;

GetModuleHandle gibt ein Handle zurück - allerdings kann ich das nicht mit FreeLibrary freigeben, wie bereits gesagt, FreeLibrary löst eine AV an 0 aus.

Rufe ich FreeLibrary (also UnLoad) auf, während die Form noch angezeigt wird, gibt es keine Probleme.

GetModuleHandle gibt zurück - FreeLibrary schlägt fehl

GetModuleHandle gibt zurück - FreeLibrary schlägt fehl

Forumregeln