PlugIn-Dll: TPUtilWindow freigeben / Erzeugung verhindern?

[Sherlock]

Schade, daß da keiner eine Idee zu hat. Denn original dieses Problem habe ich auch gerade bekommen.
Ich weiss alerdings noch, daß das TPUtilWindow ein unsichtbares Hilfsfenster ist, daß die VCL nutzt um Messages für Timer, Popups etc. zu empfangen/verarbeiten.

Ich habe auch dieses hier gefunden http://qc.embarcadero.com/wc/qcmain.aspx?d=21771, allerdings glaube ich nicht so ganz, daß Threads mein/unser Problem sind. Etwas nähere Informationen hat noch der Delphi Geek.

Bevor ich jetzt rangehe und die Änderungen in der classes.pas vornehme, würde ich dann doch gerne wissen, ob das wirklich dem oben geschilderten Problem als Lösung dienen kann.

Sherlock

[shmia]

Ich würde sagen die Ursache ist, dass in DeallocateHWnd() die Procedure Windows.UnregisterClass() nicht aufgerufen wird, wenn das letzte Wnd-Handle freigegeben wird.
Eigentlich müsste die VCL bei AllocateHWnd() einen Zähler hochzählen und bei DeallocateHWnd() um eins runterzählen.
Wenn Zählerstand = 0, dann UnregisterClass() aufrufen.
Aber so bleibt die Windows-Klasse 'TPUtilWindow' registriert.
Bei einer normaler Anwendung kein Problem; nur eben bei einer DLL.

Mögliche Abhilfe (ungetestet, reine Vermutung):

Delphi-Quellcode:

const
  DLL_PROCESS_DETACH = 0;
  DLL_PROCESS_ATTACH = 1;
  DLL_THREAD_ATTACH  = 2;
  DLL_THREAD_DETACH  = 3;

procedure LibraryProc(Reason: Integer);
begin
  case Reason of 
  DLL_PROCESS_DETACH:
    Windows.UnregisterClass('TPUtilWindow', HInstance);
  end;
end;

...
begin
  DLLProc := @LibraryProc;
  LibraryProc(DLL_PROCESS_ATTACH);
end;