Fejl når jeg afslutter program

jeg ved ikke, jeg tror der er lidt problemmer med form destroy.
Måske det vil hjælpe bare sådan her:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if dllopened then
    q3Exit;
end;

du kan fjerne den igen
FreeLibrary(Handle);
Hvor Handle er den variabel du brugte da du indlæste DLL en,
Eller du kan indlæse den statisk sådan
Procedure Proc External 'XX.Dll';
hvis det var en dynamisk indlæst dll.

Mvh. Simon

Jeg kan ikke teste det men
Prøv at fjærne alle
stdcall;
og et lille tip brug ikke string variabler i en dll lav enten en
PChar eller et Array of Char;

Mvh. Simon

Fjærn den tomme parameterliste

Du kan indlæse den dynamisk sådan

unit functions;

interface

uses
  Forms, Windows, Dialogs{Kan Fjerner hvis du ikke vil vise nogen beksed};
    Type
  T_q3Init=procedure (MainApp : TApplication);
  T_q3Query=Procedure (server: string; port: integer);
  T_q3Exit=Procedure;

var
q3Init:T_q3Init;
q3Query:T_q3Query;
q3Exit:T_q3Exit;
Handle:Integer;
Procedure LoadDLL;
Procedure ReleaseDLL;

implementation

Procedure LoadDLL;
Begin
    ChDir(paramstr(0));
    Handle:=LoadLibrary(PChar(Paramstr(0)+'Quacke3.dll'));
    if Handle <> 0 then
    begin
    q3Init:=T_q3Init(GetProcAddress(Handle, 'q3Init'));
    q3Query:=T_q3Query(GetProcAddress(Handle, 'q3Query'));
    q3Exit:=T_q3Exit(GetProcAddress(Handle, 'q3Exit'));
    if  Not Assigned(q3Init) or Not Assigned(q3Query) or
    Not Assigned(q3Exit) then
    Begin
    Showmessage('Der er en fejl i Quacke3.dll');
    Application.Terminate;
    ReleaseDLL;
    End;
    End
    Else
    Begin
    Showmessage('Sørg venligst for at filen Quacke3.dll er i '#13'samme mappe som dette program.');
    Application.Terminate;
    ReleaseDLL;
    End;
End;

Procedure ReleaseDLL;
Begin
    q3Init:=Nil;
    q3Query:=Nil;
    q3Exit:=Nil;
    FreeLibrary(Handle);
End;

end.



Mvh. Simon