- var
- lIndex : Cardinal;
- lRes : TDeviceMode;
- lLine : String;
- begin
- lIndex := 0;
- lRes.dmSize := SizeOf(TDeviceMode);
- while EnumDisplaySettings(nil, lIndex, lRes) do
- begin
- lLine := IntToStr(lRes.dmPelsWidth) + 'x' + IntToStr(lRes.dmPelsHeight) + ' ' + IntToStr(lRes.dmBitsPerPel);
- Memo1.Lines.Add(lLine);
- inc(lIndex);
- end;
- end;