Ekran Çözünürlüğünü Değiştirme
Form üzerine Button1 adlı bir buton koyun. Button1'in OnClick Event'ine aşağıdaki kodu yazın.
procedure TForm1.Button1Click(Sender: TObject);
var
dev1:TDeviceModea;
begin
enumdisplaysettings(nil,0,dev1);
dev1.dmpelswidth := 320;
dev1.dmpelsheight := 200;
dev1.dmFields := DM_PELSWIDTH + DM_PELSHEIGHT;
changedisplaysettings(dev1,0);
end;
dmPelsWidth ve dmPelsHeight değerleri ekran yatay ve dikey çözünürlüğünü belirler. Yapılan değişiklikler dmFields'de toplanarak belirtilmelidir.dev1 sınıfında ekran tazeleme hızı, renk derinliği vb. değerlerde var.
Form üzerine Button1 adlı bir buton koyun. Button1'in OnClick Event'ine aşağıdaki kodu yazın.
procedure TForm1.Button1Click(Sender: TObject);
var
dev1:TDeviceModea;
begin
enumdisplaysettings(nil,0,dev1);
dev1.dmpelswidth := 320;
dev1.dmpelsheight := 200;
dev1.dmFields := DM_PELSWIDTH + DM_PELSHEIGHT;
changedisplaysettings(dev1,0);
end;
dmPelsWidth ve dmPelsHeight değerleri ekran yatay ve dikey çözünürlüğünü belirler. Yapılan değişiklikler dmFields'de toplanarak belirtilmelidir.dev1 sınıfında ekran tazeleme hızı, renk derinliği vb. değerlerde var.