Ketika kita perlu mendapatkan resolusi komputer saat program sedang berjalan, ada dua metode: ① Anda dapat memberikan resolusi layar dalam piksel dengan mengakses layar global yang disediakan oleh Delphi, yaitu layar. . ② Gunakan fungsi Windows API getDeviceCaps () untuk mendapatkan resolusi monitor yang digunakan.
Application.Initialize;
Application.createForm (tform1, form1);
Case getDeviceCaps (getDC (form1.handle), horzres) dari
640: // Kode untuk memproses resolusi 640 × 480;
800: // Pemrosesan kode resolusi 800 × 600;
1024: // Kode untuk memproses resolusi 1024 × 768;
1280: // Resolusi pemrosesan kode 1280 × 1024;
AKHIR;