Смена разрешения экрана

[boostman]

До поры до времени смена разрешения экрана в программе работало, но после действий которые как мне кажется вообще не могут навредить смене разрешения, ничего не происходит. Если же создать новое приложение то все нормально. Для изменения использую этот код:

var

 dm: TDevMode;

begin
  ZeroMemory(@dm, sizeof(TDEVMODE));
  dm.dmSize := sizeof(TDEVMODE);
  dm.dmPelsWidth := 1024;
  dm.dmPelsHeight := 768;
  dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  ChangeDisplaySettings(dm, 0);

Подскажите в чем может бы причина?

Добавил всего одно слово "экрана" - и тема "зазвучала"...
Трудно было самому ?

[raxp]

До поры до времени смена разрешения экрана в программе работало, но после действий которые как мне кажется вообще не могут навредить смене разрешения, ничего не происходит

после каких действий?

var dem: TDEVMODE;
begin
   with dem do begin
    dmSize:=SizeOf(dem);
    dmBitsPerPel:=32;
    dmPelsWidth:=640;
    dmPelsHeight:=480;
    dmFields:= DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    ChangeDisplaySettings(dem,CDS_FULLSCREEN);
   end