取得目前(所有)的螢幕解析度及色彩

目前

procedure TForm1.Button1Click(Sender: TObject);
var
    dm: TDeviceMode;
    Mode: string;
begin
    Memo1.Clear;
    Mode := '';

    EnumDisplaySettings(nil, High(DWORD)-1, dm);
    Mode := IntToStr(dm.dmBitsPerPel) + ' Bits Per Pixel ' +
            IntToStr(dm.dmPelsWidth) + ' x ' +
            IntToStr(dm.dmPelsHeight);
    memo1.lines.Add(Mode);
end;

procedure GetVideoModes(ModeList: TStrings);
var
    i, j: integer;
    MoreModes,
    AddMode: boolean;
    dm: TDeviceMode;
    Mode: string;
begin
    ModeList.Clear;
    MoreModes := True;
    Mode := '';
    i := 0;
    while MoreModes do
    begin
        MoreModes := EnumDisplaySettings(nil, i, dm);
        Mode := IntToStr(dm.dmBitsPerPel) + ' Bits Per Pixel ' +
        IntToStr(dm.dmPelsWidth) + ' x ' +
        IntToStr(dm.dmPelsHeight);
        AddMode := True;
        { Check to make sure this mode is not already in the list. }
        for j := 0 to ModeList.Count-1 do
        if Mode = ModeList[j] then
        AddMode := False;
        if AddMode then
        ModeList.Add(Mode);
        Inc(i);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetVideoModes(memo1.lines);
end;