Ekran Çözünürlüğü

[bimsamsy]

Delphide butona tıklattığımda ekran çözünürlüğünü 800x600 nasıl yapabilirim

[vedatkaba]

Merhaba aradığın bu kod olabilir saanırım ama dikkatli kullan monitorun desteklemediği çözünürlüğü kullanmamaya bak..

İlk önce şu anki çözünürlüğü öğrenmek için Formcreate olayına

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  DevMode : TDeviceMode;
  Bits    : Integer;
  HRes    : Integer;
  VRes    : Integer;
  fre:integer;
begin
// şu anki çözünürlük, renk ve frekans
 EnumDisplaySettings(nil, Cardinal(-1), DevMode);
 Bits := DevMode.dmBitsPerPel  ;
 HRes := DevMode.dmPelsWidth  ;
 VRes := DevMode.dmPelsHeight   ;
 fre := DevMode.dmDisplayFrequency;
 label1.Caption  := Format('%d bits, %d x %d , %d Hz.',[Bits, HRes, VRes,fre]);
// Liste oluştur
  i := 0;
  while EnumDisplaySettings(nil,i,Devmode) do begin
    with Devmode do
      ListBox1.Items.Add(Format('%dx%d %d Bits %d Hz',[dmPelsWidth,dmPelsHeight, dmBitsperPel,dmDisplayFrequency ]));
    Inc(i);
  end;
end;

burda Listbox kullanılmış.. daha sonra listbox a tıklandığında

Kod: Tümünü seç

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Button1.Enabled := Listbox1.ItemIndex >= 0;
end;

İstediğini seçtik ten sonra butonun olayına

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  DevMode : TDevMode;
begin
  EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);
  ChangeDisplaySettings(DevMode,0);
end;

end.

Ben denemedim ama bu kod bende vardı işine yarar umarım sonucu bizede bildirisen iyi olur.kolay gelsin.