Using EnumDisplayDevices for Monitor info?

[DGJ]

Hi all

Can anyone give me some advice on using EnumDisplayDevices(), I am
trying to find an accurate way of getting EDID monitor information
such as model and serial number.

I have been told that this is the best way to locate the current
monitor in the system registry to extract the EDID data.

Many thanks

DGJ

[TheCodebreakers]

Try this code:
--------------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
lpDisplayDevice: TDisplayDevice;
dwFlags: DWORD;
cc: DWORD;
begin
lpdisplaydevice.cb := sizeof(lpdisplaydevice);
dwflags := 0;
cc:= 0;
while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do
begin
inc(cc);
listbox1.items.add(lpDisplayDevice.DeviceString);
end;
end;
--------------------------------------------------------------------------------------------------

Rgds,
Bondan Sumbodo S