delphi4arab منتديات دلفي للعرب

نسخة كاملة : للتعرف على Graphic Card الخاصة بجهازك
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

delphi4ever

السلام عليكم
هذا مثال للتعرف على نوع 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
[COLOR="DarkGreen"]بارك الله فيك

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


السلام عليكم[/COLOR]
بارك الله فيك
جزاك الله خير ..
"الكود لا يرجع حجم الذاكرة المحجوز للكارد"