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

[Sanek777]

как сделать, чтобы при работе программы ставилось разрешение ну там 800*600 и когда ее выключал разрешение экрана становилось обратно? (безболезненно для компа).

[SunKnight]

procedure ChangeDisplayResolution(x,y:word);
var dm : TDEVMODE;
begin
  ZeroMemory(@dm, sizeof(TDEVMODE));
  dm.dmSize := sizeof(TDEVMODE);
  dm.dmPelsWidth := x;
  dm.dmPelsHeight := y;
  dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
  ChangeDisplaySettings(dm, 0);
end;