Fórum alterar resolução do monitor #194110

e ai galera sou eu denovo com mais duvidas...

bem estou querendo fazer com que quando omeu projeto abra ele transforme a resolução do monitor para 800X600, entao peguei um monte de artigo sobre o assunto e ate ja me ajudaram aki no forum, mas ainda não consegui fazer oque quero...

quero que como dito ao abrir o projeto ele passe a resolução para 800x600, mas quando fechar ele tem que restaurar a resolução anterior..

alguem sabe como ??????



estou usando essa função e a procedure abaixo, como ele consigo ao clicar no botão ver no edit a resolução atual...

mas como fazer para que ele troque a resolução e volte a anterior ...


se puder me ajudar fico muito grato.. segue a function e procudure



function TForm1.BuscarBitsPorPixel: Integer;
var
DC: HDC;

begin
DC:= GetDC(0);
try
BuscarBitsPorPixel:= GetDeviceCaps (DC, PLANES) * GetDeviceCaps (DC, BITSPIXEL);
finally
ReleaseDC (0, DC);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
DevMode : TDevMode;
begin
Edit1.Text:= IntToStr (GetSystemMetrics (0)) + ´x´ +
IntToStr (GetSystemMetrics (1)) + ´x´ +
IntToStr (BuscarBitsPorPixel);


EnumDisplaySettings(nil,???????,Devmode);
ChangeDisplaySettings(DevMode,0);


end;