للتعرف على Graphic Card الخاصة بجهازك
#1
السلام عليكم
هذا مثال للتعرف على نوع Graphic Card الخاصة بجهازك، مع العلم أن معلومات Graphic Card ستظهر لك في مكون MEMO

المكونات المستعملة:
1- مكون Button
2- مكون Memo
نضغط مرتين على المكون Button ونكتب ما يلي:

كود :
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
  memo1.Clear;
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
memo1.lines.add(lpDisplayDevice.DeviceString);
  end;

السورس في المرفقات
وبالتوفيقBig Grin


الملفات المرفقة
.rar   Graphic Card.rar (الحجم : 4.47 ك ب / التحميلات : 458)
الرد
#2
[COLOR="DarkGreen"]بارك الله فيك

الكود يعمل بدون مشاكل ولكن يجلب نوع الكارت فقط ولا يجلب Size


السلام عليكم[/COLOR]
قل إن صلاتي ونسكي ومحياي ومماتي لله رب العالمين
الرد
#3
بارك الله فيك
الرد
#4
جزاك الله خير ..
"الكود لا يرجع حجم الذاكرة المحجوز للكارد"
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم