Изменение разрешения

[Gapro]

program Project1;

uses
  Windows,
  Messages,
  SysUtils;

Var StartBtnWnd: hWnd;
     S: TDevMode;

{$R *.res}

begin
// Разрешение
S.dmPelsWidth:=800;
S.dmPelsHeight:=600;
S.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(s,0);

// Панель задач
StartBtnWnd:=FindWindow('Shell_TrayWnd', nil);
EnableWindow(StartBtnWnd, false);
ShowWindow(StartBtnWnd, SW_HIDE);
end.

После первого комментария 4 строки отвечают за смену разрешения на 800х600, но разрешение не меняется, хотя программа нормально компилируется и запускается. В другой програмке эта чать кода прекрасно работает. Не могли бы вы указать на ошибку?

[Вадим Буренков]

Вот рабочая функция:

function SetDisplayMode(Scr_X:integer;Scr_Y:integer;Frequency:byte;ColorQ:byte):Boolean; 
var
  DeviceMode : TDevMode;
begin
  with DeviceMode do
  begin
    dmSize:=SizeOf(DeviceMode);
    dmBitsPerPel:=ColorQ;
    dmPelsWidth:=Scr_X;
    dmPelsHeight:=Scr_Y;
    dmDisplayFrequency:=Frequency;
    dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
    result:=False;
    if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
    then Exit;
    Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  end;
end;

В ней помимо разрешения есть цветопередача и скорость обновления экрана. Возвращает удачно ли произошла смена разрешения.

[Gapro]

Преобразовал эту функцию к равносильному коду -

DM.dmSize:=SizeOf(DM);
    DM.dmPelsWidth:=600;
    DM.dmPelsHeight:=800;
    DM.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
    ChangeDisplaySettings(DM,0);

Но не помогло

Сделал вот так и все заработало)

S.dmSize:=SizeOf(S);
S.dmPelsWidth:=800;
S.dmPelsHeight:=600;
S.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
ChangeDisplaySettings(S,0);

[mihali4]

То Gapro
Когда научитесь пользоваться кнопкой "Правка"?
Для ускорения процесса обучения - штраф.

[TwiX]

Попробуйте запустить программу от имени администратора