Управление настройками компьютера из приложения Delphi

[Saili]

Товарищи! Подскажите как изменить величену кадровой развертки монитора на 50 Гц по нажатию, например, кнопки, а второй кнопкой вернуть ее ранее установленное значение?
Заранее спасибо!

[Сильванович Михаил]

=================================== ============================
procedure SetMonitorStatus(width,height,frequ ency: integer; bpp: byte);
var DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=bpp;
dmPelsWidth:=width;
dmPelsHeight:=height;
dmDisplayFrequency:=frequency;
dmFields:=DM_BITSPERPEL+DM_PELSWIDT H+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY ;
end;
if ChangeDisplaySettings(DeviceMode,CD S_TEST)=DISP_CHANGE_SUCCESSFUL then
ChangeDisplaySettings(DeviceMode,CD S_UPDATEREGISTRY);
end;
=================================== ============================
Frequency - частота.

[Saili]

Не понял!
Не сочтите за труд - поясните подробнее!!!!!! А...???