Wann wird fremde TForm ausgeblendet

[himitsu]

Hey, an einen Hook im Screen hatte ich auch schon gedacht. (change des ActiveControl/ActiveForm)

Leider hat TList kein OnChange, sondern nur ein virtuellen Notify.
Ein einfaches überschreiben der VMT würde alle TList hooken, aber immernoch enorm weniger, als ein ApplicationEvents.OnMessage.
Aber wenn, dann hätte ich wohl den TVirtualMethodInterceptor bemüht. (der kopiert ja die ClassInfo und hookt dort dann nur für diese Instanz)

An TScreen.FForms bzw. FCustomForms wäre ich über einen bösen Cast mit kopierter Klasse bin ich über die RTTI rangekommen.
Beim Hook des Notify war ich mir noch unsicher.

Delphi-Quellcode:

  var R := TRttiContext.Create.GetType(Vcl.Forms.TScreen);
  var L := R.GetField('FForms').GetValue(Screen).AsObject as TList;

  R := TRttiContext.Create.GetType(TList);
  R.GetMethod('Notify').VirtualIndex

Da hier in der OTA/NTA nichts möglich ist
und auch die VCL direkt nichts bietet,
suche ich halt einfach nur einen "schönen" Weg, möglichst mit nativen Mitteln des Delphi (VCL/GDI),
um rauszubekommen, wann diese TForm hidden wird.

Mir fällt grad ein, anstatt an die Screen->TList könnte ich auch direkt die VMT der TAppBuilder (DoHide)
(auch wenn Delphi bei vielen eigenen Klassen die erweiterte RTTI deaktiviert hat ... die VMT der ClassInfo bleibt)

[himitsu]

Wow, die haben in D12 ja echt mal was verändert.
Der SplashScreen ist jetzt eine eigene Form-Klasse.

http://fnse.de/Delphi-in-Taskleiste.mp4 (oder siehe Anhang)
http://fnse.de/Delphi-in-Taskleiste2.mp4
Wollte erst die 12, aber dann fiel mir ein, dass man bei der 11 länger etwas von sieht.

Jetzt nur noch das ShowInTaskBar auf True und vielleicht noch ein TTaskbar drauf.
Muß ich wohl mal einen neuen FeatureRequest erstellen.

Selbst ein halbwegs frisches D12, noch ohne Unmassen an Erweiteurngen und Fremdkomponenten, braucht hier beim Beenden schon 10-15 Sekunden, bis es wirklich weg ist, nachdem IDE-Fenster und Taskbar-Button verschwunden sind.


OK, es war "erstmal" einfacher, als gedacht.
OnShow wird "aktuell" von Emba nicht verwendet, also hab ich mich dort angehängt.
(hab da eine billige Assigned-Prüfung mit Warnmeldung, falls die das ändern)

Also, für D11.3 und D12.1 hab ich's nun erstmal am Laufen.

• Kompilieren (oder BPL aus ZIP)
• das Package nicht installieren
  • für's Beenden ist es egal
  • aber beim Start reagiert es als IDE-Package besser (Known IDE Packages)
  • falls als normales Package, mit installieren, vorher das DEFINE in der PAS umstellen (Known Packages)
• dann in der Registry das Package eintragen (nur wenn nicht "installiert")
  • Delphi 12
    HKEY_CURRENT_USER\Software\Embarcadero\BDS\23.0\Known IDE Packages
    C:\Users\Public\Documents\Embarcadero\Studio\23.0\Bpl\IsDelphiRunning.bpl
  • Delphi 11
    HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Known IDE Packages
    C:\Users\Public\Documents\Embarcadero\Studio\22.0\Bpl\IsDelphiRunning.bpl
  • Delphi 10 wird eventuell auch funktionieren
    davor muß aber garantiert noch bissl was angepasst werden
• und sich freuen, dass Delphi in der Taskleiste nun endlich sagt ob und was es macht
• .
• Hab aber keine Ahnung, warum beim Beenden das Icon so lange braucht (hab es ja direkt beim RegisterClass via LoadIcon zugewiesen),
  aber OK, es kommt und zu sehn ist ja dennoch was ... und das war die Hauptsache.
• Beim Start ist es auch fast sofort da (der Timer braucht halt bissl was ... muß ja auf's Application.ProcessMessages warten ),
  aber da es nun eine eigene Form ist, könnte ich mich in die Klasse Hooken (Create CreateWnd oder DoShow)
  
  Da ich beim Starten den SplashScreen dazu bringe sich in der Taskleiste zu zeigen, muß ich halt warten, bis jener da ist.
  Ich könnte, wie beim Beenden, einen eigenen Eintrag erstellen, aber so verschwindet er automatisch, sobald der SplashScreen durch die Hauptform ersetzt wird.
  Außerdem ist damit in der AeroPreview auch das Bild des SplashScreen drin.

[Kas Ob.]

From the video, i think i do understand the question, so here a suggest with different approach :
Replace BorlndMM.dll with one that load (just an import of one function might be enough) another DLL (yours) in this case BorlndMM.dll still serve as memory manager, but will invoke your dll before even the IDE start, don't forget to make your injected dll is not using share memory.

[himitsu]

Normal fällt einfach nicht auf, wenn Delphi startet und noch schlimmer, wenn es beim Starten im Hintergrund hängen bleibt.
Sowie, dass Delphi eigentlich noch offen ist, wenn es zu lange zum Beenden braucht. Hier ebenfalls nett, wenn es durch einen Fehler ewig unbemerkt hängen bleibt.
http://fnse.de/Delphi-in-Taskleiste-Normal.mp4
http://fnse.de/Delphi-in-Taskleiste-Extension.mp4

Was auch nicht gleich auffällt, wenn man Delphi ausversehn mehrfach startet.
Oder wenn es hängt, man denkt man hatte vielleicht vergessen zu klicken, bzw. nicht richtig geklickt, und startet es dann nochmals. (wenn man den Splashscreen nicht sieht, weil ein anderes Programm vorne liegt)
Die Splashscreens überdecken sich und in der Taskleiste taucht normal ja erst das Hauptfenster auf.
http://fnse.de/Delphi-in-Taskleiste-Doublestart.mp4

Komisch sieht es aus, wenn das Delphi im Hintergrund weiter/schneller ist und dann hinter/unter dem sichtbaren Splashscreen noch ein anderer Teil hervorragt. (bei genügend Erweiterungen, wenn sich das Fenster vergrößert)