Verwenden von GetClass und RegisterClass

[MaBuSE]

Zitat von MaBuSE:

Hallo Hagen, kannst Du bitte mal den Source für Delphi 7 posten?

@Hagen: Falls Du diese Änderung meintest, die ist in dem File schon enthalten -> Also einfach meinen letzten Beitrag ignorieren

Hagen schrieb in http://www.delphipraxis.net/internal...=128809#128809 :

Zitat von negaH:

Der obige Code ist von mir für Delphi 2 bis 6 entwickelt und getestet wurden. Er ist aber auch wie man sieht eine "Quick&Dirty" Lösung, d.h. ich habe sie nicht "schön" gemacht. Die einzigste Änderung die man für D7 machen muß ist in

  if (PDWord(P)^ = DWord(K)) and (PByte(K)^ > 0) and (PByte(K)^ < 18) then // Info.Kind in ValidRange.D6 Der Wert 18 könnte durch

 ... <= Integer(High(TTypeKind)) then ersetzt werden. Dann wäre es automatisch durch neucompilieren für alle Delphi Versionen gültig.