Thank you.

That was exactly what I needed.

-Lukas

At 06:30 AM 09-06-04, you wrote:

Hello,


> I'm attempting to retrieve information about the current resolution > settings, but I'm not having much luck. I've downloaded the Borland Win32 > API, but I'm still stuck with creating the device context, and so on. I > need some massive help with this... =(

Because the Borland help file is really outdated... use either the online
MS-Platform SDK help (or alternatively the search engine of your choice =)
or download it from MS.

Here's a small program which prints the screen characteristics you need to
the console (no need to fiddle around with device contexts, no error
handling):

program PrintScreenCharacteristics;

uses
  Windows;

var
  mode : TDevMode;

const
  // this constant does not seem to be defined in my FPC distro
  ENUM_CURRENT_SETTINGS = $FFFFFFFF;

begin
  EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, mode);
  writeln(mode.dmPelsWidth, 'x', mode.dmPelsHeight, 'x',
    mode.dmBitsPerPel, '@',mode.dmDisplayFrequency);
  readln;
end.

See the MS-docs for this function for further explanation.

Compiles and runs with FPC 1.9.3 - 2004/04/09.

Regards,
  Thomas


_______________________________________________ fpc-pascal maillist - [EMAIL PROTECTED] http://lists.freepascal.org/mailman/listinfo/fpc-pascal


--- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.699 / Virus Database: 456 - Release Date: 04-Jun-04
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.699 / Virus Database: 456 - Release Date: 04-Jun-04

Reply via email to