Список всех видеорежимов...

← →
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;

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