[DungeonLords]

Привет всем. Есть статья: http://www.delphisources.ru/pages/fa...ter_modes.html

Там рассказано о том, как в том числе получать все возможные для данного монитора разрешения и цвета (в начале статьи, первый код). Там ещё написано, что структура типа TDevMode содержит в том числе версию драйвера, количество цветов, масштаб, количество пикселей по ширине, высоте и т.д:

Код:

    dmSpecVersion: Word;
    dmDriverVersion: Word;
    dmSize: Word;
    dmDriverExtra: Word;
    dmFields: DWORD;
    dmOrientation: SHORT;
    dmPaperSize: SHORT;
    dmPaperLength: SHORT;
    dmPaperWidth: SHORT;
    dmScale: SHORT;
    dmCopies: SHORT;
    dmDefaultSource: SHORT;
    dmPrintQuality: SHORT;
    dmColor: SHORT;
    dmDuplex: SHORT;
    dmYResolution: SHORT;
    dmTTOption: SHORT;
    dmCollate: SHORT;
    dmFormName: array[0..CCHFORMNAME - 1] of AnsiChar;
    dmLogPixels: Word;
    dmBitsPerPel: DWORD;
    dmPelsWidth: DWORD;
    dmPelsHeight: DWORD;
    dmDisplayFlags: DWORD;
    dmDisplayFrequency: DWORD;
    dmICMMethod: DWORD;
    dmICMIntent: DWORD;
    dmMediaType: DWORD;
    dmDitherType: DWORD;
    dmICCManufacturer: DWORD;
    dmICCModel: DWORD;
    dmPanningWidth: DWORD;
    dmPanningHeight: DWORD;

Так вот, как получить всё оставшееся кроме dmPelsWidth, dmPelsHeight, dmBitsperPel? И что значит "Format('%dx%d %d Colors'"?

[AlexSku]

Сообщение от DungeonLords

Так вот, как получить всё оставшееся кроме dmPelsWidth, dmPelsHeight, dmBitsperPel? И что значит "Format('%dx%d %d Colors'"?

%d означает, что выводится число.
Format('%d', [2]) сформирует строку '2'.
Остальные символы ('x', пробелы, 'Colors') также добавляются в строку:
Format('%d x %d получится %d', [2, 3, 2*3]) это строка '2 x 3 получится 6'.

Вот и выводи значения (напр., первые два из списка. Список можно продолжить):

Код:

Format('Версия: %d, '
+'Версия драйвера: %d', [dmSpecVersion, dmDriverVersion])