Quando precisamos obter a resolução do computador quando o programa estiver em execução, existem dois métodos: ① Você pode dar a resolução da tela em pixels acessando a tela Variáveis globais fornecidas por Delphi, a Screen.Width e Screen.Height . ② Use a função API do Windows getDeviceCaps () para obter a resolução do monitor usado.
Application.initialize;
Application.CreatEform (TForm1, Form1);
Case getDeviceCaps (getDC (form1.handle), Horzres) de
640: // Código para processamento de resolução de 640 × 480;
800: // Processamento de código 800 × 600 Resolução;
1024: // Código para processamento de resolução 1024 × 768;
1280: // Resolução de processamento de código de 1280 × 1024;
FIM;