Delphi - база знаний

       

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


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





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;

Взято с Исходников.ru




Содержание раздела