Как определить видеокарту?

Материал из DRKB

Как определить видеокарту?[править | править код]

procedure TForm1.button1click(Sender: TObject); 
var 
  lpDisplayDevice: TDisplayDevice; 
  dwFlags: DWORD; 
  cc: DWORD; 
begin 
  form2.memo1.Clear; 
  lpDisplayDevice.cb := sizeof(lpDisplayDevice); 
  dwFlags := 0; 
  cc:= 0; 
  while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do 
  begin 
    Inc(cc); 
    form2.memo1.lines.add(lpDisplayDevice.DeviceString);
    { Так же мы увидим дополнительную информацию в lpDisplayDevice } 
    form2.show; 
  end; 
end;


Source: Взято из http://forum.sources.ru
ID: 01455