Когда нам нужно получить разрешение компьютера при запуске программы, существует два метода: ① Вы можете дать разрешение экрана в пикселях, получив глобальные переменные экрана, предоставленные Delphi, а также Screen.width и Screen.height. Полем ② Используйте функцию Windows API getDevicecaps (), чтобы получить разрешение используемого монитора.
Application.initialize;
Application.createform (tform1, form1);
Case getDeviceCaps (getDC (form1.handle), Horzres)
640: // код для разрешения обработки 640 × 480;
800: // Обработка кода 800 × 600 разрешение;
1024: // код для обработки разрешения 1024 × 768;
1280: // разрешение обработки кода 1280 × 1024;
КОНЕЦ;