sPlateforme est une chaîne = Répète(" ", 128)
API("coredll", "SystemParametersInfo", 0x0101, 128, &sPlateforme, 0)
SI SansEspace(sPlateforme) ~= "PocketPC" ALORS
        // C'est un PPC
        Info("Pocket PC")
SINON
        SI SansEspace(sPlateforme) ~= "Smartphone" ALORS
                // C'est  un Smartphone
                Info("Smartphone")
        FIN
FIN