如何取得系统支持的所有显示模式

procedure GetVideoModes(ModeList: TStringList);
源代码网推荐 { proc to retrieve a list of acceptable video modes of the current video card. }
源代码网推荐 { **********************************************
源代码网推荐 Usage:
源代码网推荐 procedure TForm1.FormCreate(Sender: TObject);
源代码网推荐 var
源代码网推荐 StrList: TStringList;
源代码网推荐 begin
源代码网推荐 StrList := TStringList.Create;
源代码网推荐 try
源代码网推荐 GetVideoModes(StrList);
源代码网推荐 Memo1.Lines := StrList;
源代码网推荐 finally
源代码网推荐 StrList.Clear;
源代码网推荐 StrList.Free;
源代码网推荐 end;
源代码网推荐 end;
源代码网推荐 ************************************************ }
源代码网推荐 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;