دخول

22-03-2008, 09:33 PM

السلام عليكم
هذا مثال للتعرف على نوع 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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة