Cuando necesitamos obtener la resolución de la computadora cuando el programa se ejecuta, hay dos métodos: ① Puede dar la resolución de la pantalla en píxeles accediendo a las variables globales de pantalla proporcionadas por Delphi, a saber, pantalla y pantalla. . ② Use la función API de Windows getDeviceCaps () para obtener la resolución del monitor utilizado.
Aplicación.initialize;
Application.CreateForm (TForm1, Form1);
Case getDeviceCaps (getDC (form1.handle), horzres) de
640: // Código para la resolución de procesamiento de 640 × 480;
800: // Procesamiento de código resolución 800 × 600;
1024: // Código para procesar la resolución 1024 × 768;
1280: // Resolución de procesamiento de código de 1280 × 1024;
FIN;