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 ?
