Order and save right now! 20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

System info

⤷ Get all video modes

Use EnumDisplaySettings function with TDeviceModeA structure for this problem.
EnumDisplaySettings function gives one video mode only. So you must call this function several times.
Also you must check result of this function with other results for getting exact information.

procedure TForm1.Button1Click(Sender: TObject);
var
  ModeNumber, j: Integer;
  MyMode: TDeviceModeA;
  Check, Need: Boolean;
  Str: string;
begin
  ModeNumber:=0;
  Check:=True;
  while(Check) do
  begin
    Check:=EnumDisplaySettings(nil, ModeNumber, MyMode);
    Str:=IntToStr(MyMode.dmPelsWidth)+'-'+IntToStr(MyMode.dmPelsHeight);
    Need:=False;
    for j:=0 to Memo1.Lines.Count-1 do
      if Memo1.Lines[j]=Str then
        Need:=True;
    if Need=False then Memo1.Lines.Add(Str);
    Inc(ModeNumber);
  end;
end;

More for developers

● Delphi Components

● .Net Components

● Software for Android Developers

● Databases for Amazon Associates
Amazon Categories
Amazon Nodes