TAboutScroller Fensterklasse [nonVCL]

[turboPASCAL]

Kleines Exe-Demo-Update siehe oben...
---------------------------------------------

So, nun habe ich wieder mal was mit dem AboutScroller zu tun gehabt.
Was mir aufgefallen ist, ist das einige Sachen nicht wieder freigegeben werden.

Delphi-Quellcode:

function ScrollThread(psc: PScrollConfig): DWORD; stdcall;
begin
  // As long as a main window is assigned
  while (psc^.MainWnd <> 0) do
  begin
    // Increment position
    InterlockedIncrement(psc^.Position);
    // Send the change request to the window
    SendMessage(psc^.MainWnd, WM_ASSAREFRESHSCROLL, 0, 0);
    // Sleep until next refresh cycle
    Sleep(psc^.ScrollDuration);
  end;
  // --- nach dem WM_DESTROY kommt er nicht er hier an ---------- //
  // deswegen habe ich die Freigaben ins WM_DESTROY - Ereignis verschoben

  // Make sure no one else will use the pointer
  SetWindowLong(psc^.MainWnd, GWL_USERDATA, Integer(0));
  // And the config struct itself
  GlobalFree(THandle(psc));
  result := Ord(True);
end;

Delphi-Quellcode:

function TAboutScroller_WindowProc...
//...
    WM_DESTROY:
      begin
        // Terminate the scroller thread, friendly method to do this
        // From this value the thread knows it should terminate and free the
        // config struct.

        // Finally free the text buffer           <----<<<
        GlobalFree(THandle(psc^.TextBuffer));
        // Delete GDI objects
        DeleteObject(psc^.Bmp);
        DeleteObject(psc^.BgBrush);            // <----<<<
        // Close Thread Handle
        CloseHandle(psc^.Thread);

        psc^.MainWnd := 0;                     
      end;

Was macht man denn nun mit dem "GlobalFree(THandle(psc));"-Dingens, im WM_DESTROY-Ereigniss bringt es eine AV ?