Как определить видеокарту
Как определить видеокарту
Как определить видеокарту procedure TForm1.button1click(Sender: TObject); 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; end;
