Список всех видеорежимов...
BoAlSe © (2005-05-21 17:52:00)
Необходимо выдать список всех, поддерживаемых системой
видеорежимов. Или хотябы определить, поддерживается ли какой-нибудь
конкретный режим. Когда-то грузил с одного сайта исходник такой
программы. Но сайт закрылся, а загруженный архив потерялся.
rOOse (2005-05-21 18:04:00) [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;
Наверх 
ЧАТ |
Орешник |
|
