Ich wills nochmal bischen genauer beschreiben
Wenn du diese Function in Delphi 2006 und ---->>>><New->
Vcl-Form-Appliaction for Delphi Net <<<<<<----
wenn du sie dort einträgst oda ausprobierst wirste ganz bestimmt eine error Meldung bekommen
Ich weiss das das Result := fehlt aber musste schnell gehn beim Kopieren
Das mit dem Unsafe muss ich davor setzten weil sonst Delphi beim Compilieren Rum meckert
Ich schreibe sonst immer Delphi 7 Tools nur ist Delphi 7 nicht mit Vista Kompatibel und musste das jetzt
in Delphi Net umsetzten.
Mfg Thundi