ekran cözünürlügünü degiştiren program (delpihide)

[murat335]

{Ana formun OnCreate olayi} 
procedure TForm1.FormCreate(Sender: TObject); 
var 
i : Integer; 
DevMode : TDevMode; 
begin 
Button1.Enabled:=False; 
i := 0; 
while EnumDisplaySettings(nil,i,Devmode) do begin 
with Devmode do 
ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel])); 
Inc(i); 
end; 
end; 
{ListBox1'in Onclick olayi} 
procedure TForm1.ListBox1Click(Sender: TObject); 
// Listede istenilen cözünürlük degeri secildiginde Button1'de kullanir hale getir 
begin 
Button1.Enabled := Listbox1.ItemIndex >= 0; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
// Secilen cözünürlük degerini degerini uygula 
var 
DevMode : TDevMode; 
begin 
EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode); 
ChangeDisplaySettings(DevMode,0); 
end;