procedure TForm1.Button1Click(Sender: TObject);
var
Index: Integer;
Actually, DevNode: TDeviceMode;
begin
Actually.dmSize := SizeOf(Actually);
DevNode.dmSize := SizeOf(DevNode);
ListBox1.MultiSelect := True;
ListBox1.Clear;
Index := 0;
EnumDisplaySettings(nil, $FFFFFFFF, Actually);
while EnumDisplaySettings(nil, Index, DevNode) do
begin
if lstrcmp(@Actually.dmDeviceName, @DevNode.dmDeviceName) = 0 then
begin
ListBox1.AddItem(InTtoStr(DevNode.dmPelsWidth)+'x'+IntToStr(DevNode.dmPelsHeight)+'x'+IntToStr(DevNo de.dmBitsPerPel) + ' at ' + IntToStr(DevNode.dmDisplayFrequency) + ' Hz.', nil);
ListBox1.Selected[Index] := (Actually.dmPelsWidth = DevNode.dmPelsWidth) and
(Actually.dmPelsHeight = DevNode.dmPelsHeight) and
(Actually.dmBitsPerPel = DevNode.dmBitsPerPel);
end;
Inc(Index);
end;
end;