Скачать: CL | DM;

Список всех видеорежимов...   Найти похожие ветки 

← →
BoAlSe ©   (2005-05-21 17:52) [0]

Необходимо выдать список всех, поддерживаемых системой видеорежимов. Или хотябы определить, поддерживается ли какой-нибудь конкретный режим. Когда-то грузил с одного сайта исходник такой программы. Но сайт закрылся, а загруженный архив потерялся.

---

← →
rOOse ©   (2005-05-21 18:04) [1]

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
 DevMode : TDeviceMode;
begin
 i:=0;
 while EnumDisplaySettings(nil,i,DevMode) do
 begin
   with Devmode do
     ListBox1.Items.Add(Format("%dx%d %d Colors",
     [dmPelsWidth,dmPelsHeight,Int64(1) shl dmBitsperPel]));
   Inc(i);
 end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.025 c