Помогите изменить разрешение монитора

[Stanislav]

Здравствуйте
Подскажите кто знает как изменить разрешение монитора с помощью delphi 7

[Alex21]

Вот держи:

procedure SetScreen(BPP:byte;width,height,FR:integer);
var
  D: TDevMode;
  h: HWND;
begin
  h:=0; 
  D.dmDeviceName:='DISPLAY';
  D.dmBitsPerPel:=BPP;
  D.dmDisplayFrequency:=FR; 
  D.dmPelsWidth:=Width;
  D.dmPelsHeight:=Height;
  D.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY; 
  D.dmSize:=SizeOf(D);
  if ChangeDisplaySettings(D,CDS_TEST)=DISP_CHANGE_SUCCESSFUL then
    ChangeDisplaySettings(D,CDS_UPDATEREGISTRY)
  else
    MessageBox(h,'This mode is not supported by your video.',
    'Failed to change mode', MB_ICONWarning);
end;

Пример вызова:

SetScreen(16,800,600,80); {16 бит цвет, 800х600, 80Гц.}

Можно перед вызовом процедуры сохранять текущие настройки экрана, а по завершении работы приложения - восстанавливать прежние настройки.
Uses ShellApi;

[Saniok]

А с помощью С++ и желательно под DEV C++.