الحصول على دقة الشاشة في برمجة دلفي

عندما نحتاج إلى الحصول على دقة الكمبيوتر عند تشغيل البرنامج ، هناك طريقتان: ① يمكنك إعطاء دقة الشاشة بالبكسل من خلال الوصول إلى المتغيرات العالمية التي توفرها Delphi ، وهما الشاشة. . ② استخدم وظيفة Windows API getDevicEcaps () للحصول على دقة الشاشة المستخدمة.

application.initialize ؛

application.createform (tform1 ، form1) ؛

حالة getDevicEcaps (getDC (form1.handle) ، horzres) من

640: // كود للمعالجة دقة 640 × 480 ؛

800: // معالجة الكود 800 × 600 ؛

1024: // code لمعالجة القرار 1024 × 768 ؛

1280: // دقة معالجة الكود من 1280 × 1024 ؛

نهاية؛