Taille d'une form et version Windows en Delphi

Pour ceux qui créent des DLL en Delphi et qui souhaitent adapter automatiquement la taille d'une form créée dans une telle DLL, à la version de Windows (XP, Vista, ...), voici un petit code très simple pour le réaliser:

Code:

    Width := Width + Width-ClientWidth-8;        // 8 = XP SP3
    Height := Height + Height-ClientHeight-34;  // 34 = XP SP3

Note:
Les valeurs 8 et 34 sont valables pour une DLL créée et générée sur un système sous XP !
Si l'on développe sur un autre système, il faut adapter ces valeurs en fonction du système, et le reste du code reste identique. Pour connaître ces valeurs sur son propre système, le plus simple est d'exécuter le petit programme dimensions.exe contenu dns "DLL divers" disponible sur mon site. Entre autres informations, il affiche ces deux valeurs.

Merci pour les utilisateurs de Delphi