Set Resolusi Monitor dengan Delphi #150

andrypein.net : Bisakah dibuat aplikasi Set Resolusi Monitor dengan Delphi? Bisa, klean bisa simak postingan aing ini.

Skrinsut aplikasinya bisa dilihat seperti ini lah :

Pertama-tama kita harus membuat sebuah procedure nya dulu gan, pricedure ini bertujuan untuk eksekusi set resolusi monitornya.

Berikut adalah procedure nya :

procedure SetResolusi(XRes, YRes :Dword);
var
  lpDevMode : TdeviceMode;
begin
  EnumDisplaySettings(nil, 0, lpDevMode);
  lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
  lpDevMode.dmPelsWidth:=XRes;
  lpDevMode.dmPelsHeight:=YRes;
  ChangeDisplaySettings(lpDevMode,0);
end;

Untuk bahan form cukup satu buah tombol, satu buah combobox untuk daftar resolusi monitor, dan dua buah edittext, rancang bentuk form nya mah bebas we lah.

Kemudian pada event form OnCreate, tambahkan kode ini, ini bermaksud untuk menambahkan list pada combobox.

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.Clear;
  edit2.Clear;
  combobox1.Clear;
  combobox1.Items.Add('600 x 800');
  combobox1.Items.Add('1024 x 768');
  combobox1.Items.Add('1152 x 854');
  combobox1.Items.Add('1280 x 720');
  combobox1.Items.Add('1280 x 768');
  combobox1.Items.Add('1280 x 800');
  combobox1.Items.Add('1280 x 960');
  combobox1.Items.Add('1280 x 1024');
end;

Lalu pada combobox OnChange tambahkan kode ini :

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case combobox1.ItemIndex of
    0:
      begin
        edit1.Text:='800';
        edit2.Text:='600';
      end;
    1 :
      begin
        edit1.Text:='1024';
        edit2.Text:='768';
      end;
    2 :
      begin
        edit1.Text:='1152';
        edit2.Text:='854';
      end;
    3 :
      begin
        edit1.Text:='1280';
        edit2.Text:='720';
      end;
    4 :
      begin
        edit1.Text:='1280';
        edit2.Text:='768';
      end;
    5 :
      begin
        edit1.Text:='1280';
        edit2.Text:='800';
      end;
    6 :
      begin
        edit1.Text:='1280';
        edit2.Text:='960';
      end;
    7 :
      begin
        edit1.Text:='1280';
        edit2.Text:='1024';
      end;
  end;
end;

Terakhir pda tombol klik beri kode untuk eksekusi :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.Text='') and (edit2.Text='') then
    showmessage('pilih dulu gan')
  else
    SetResolusi(StrToInt(edit1.Text),StrToInt(edit2.Text));
end;

Done, dan program kecil2an untuk menge set resolusi monitor dengan delphi pun selesai.

Projeknya bisa di donlod gan disini gan.

Download

*AFK