للتعرف على 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;

السورس في المرفقات
وبالتوفيق:D

[ELARAPY]

بارك الله فيك

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


السلام عليكم