Hosted by uCoz
Изменение разрешения экрана
  [Local external function declaration]
   FUNCTION long ChangeDisplaySettingsA (ref devmode lpst, ulong Flags) &
     LIBRARY "USER32.DLL"

  [structure definition, devmode]
	character   dmdevicename[32]
	integer     dmspecversion
	integer     dmdriverversion
	integer     dmsize
	integer     dmdriverextra
	long        dmfields
	integer     dmorientation
	integer     dmpapersize
	integer     dmpaperlength
	integer     dmpaperwidth
	integer     dmscale
	integer     dmdefaultsource
	integer     dmprintquality
	integer     dmcolor
	integer     dmduplex
	integer     dmresolution
	integer     dmttoption
	integer     dmcollate
	character   dmformname[32]
	integer     dmlogpixels
	long        dmbitsperpel
	long        dmpelswidth
	long        dmpelsheight
	long        dmdisplayflags
	long        dmdisplayfrequency
	long        dmicmmethod
	long        dmicmintent
	long        dmmediatype
	long        dmdithertype
	long        dmreserved1
	long        dmreserved2

  [Instance variable declaration]
  Ulong  CDS_FORCE  = 8*16*16*16*16*16*16*16
  long  DM_BITSPERPEL_H = 4*16*16*16*16
  long  DM_PELSWIDTH_H = 8*16*16*16*16
  long  DM_PELSHEIGHT_H = 16*16*16*16*16
  long  DM_DISPLAYFLAGS_H = 2*16*16*16*16*16

  [powerscript 800x600]
  devmode dm
  long a

  dm.dmPelsWidth = 800
  dm.dmPelsHeight = 600
  dm.dmBitsPerPel = 16
  dm.dmFields = DM_PELSWIDTH_H + DM_BITSPERPEL_H
  dm.dmSize = 188
  a = ChangeDisplaySettingsA(dm, CDS_FORCE)

  [powerscript 1024x768]
  devmode dm
  long a

  dm.dmPelsWidth = 1024
  dm.dmPelsHeight = 768
  dm.dmBitsPerPel = 16
  dm.dmFields = DM_PELSWIDTH_H + DM_BITSPERPEL_H
  dm.dmSize = 188
  a = ChangeDisplaySettingsA(dm, CDS_FORCE)