Screen Resolution and Tlistbox

[Satty67]

Here my way :

Delphi-Quellcode:

var
  i       : Integer;
  DevMode : TDeviceMode;
  s : String;
begin
  i:=0;


  while EnumDisplaySettings(nil,i,DevMode) do begin
    with Devmode do
      s := Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]);
    if ListBox1.Items.IndexOf(s) < 0 then ListBox1.Items.Add(s);

    Inc(i);
  end;

end;