Lorsque nous devons obtenir la résolution de l'ordinateur lorsque le programme est en cours d'exécution, il existe deux méthodes: ① Vous pouvez donner la résolution de l'écran en pixels en accédant à l'écran les variables globales fournies par Delphi, à savoir Screen.Width et Screen.height. . ② Utilisez la fonction API Windows getDeviceCaps () pour obtenir la résolution du moniteur utilisé.
Application.Initialize;
Application.CreateForm (TForm1, Form1);
Case getDeviceCaps (getdc (form1.handle), horzres) de
640: // Code pour le traitement de la résolution de 640 × 480;
800: // Traitement de code Résolution 800 × 600;
1024: // Code pour le traitement de la résolution 1024 × 768;
1280: // Résolution de traitement de code de 1280 × 1024;
FIN;