Как определить видеокарту
|
Стоит программист перед светофором:
- Никак не могу понять, что там за видеоадаптер:
у Геркулеса - 2 цвета, у CGA - 4, у EGA - 16, у VGA -256, у XGA - 65535, а 3-х - ну ни у кого нет!
|
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;
|
|
