Flash (3)
Handphone (2)
Lain-lain (3)
Pemrograman (7)
Software (1)
Teknologi (5)
Web (0)
















Sabtu, 27 Februari 2010 - 15:51:20 WIB
Program Test Resolusi
Diposting oleh : M.Hasan Bishri
Kategori: Pemrograman - Dibaca: 232 kali

Program Test Resolusi ini dibuat untuk mengetahui resolusi dari komputer dan kwalitas layar monitor KOMPUTER anda.

Program ini memakai delphi 7 dan sengaja dibuat untuk kepentingan publik,

 silakan copy scrip ini :

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    function SetScreenResolution(Width, Height: integer): Longint;

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  OldWidth, OldHeight: integer;

 

implementation

 

{$R *.DFM}

 

function TForm1.SetScreenResolution(Width, Height: integer): Longint;

var

  DeviceMode: TDeviceMode;

begin

     with DeviceMode do

     begin

          dmSize := SizeOf(TDeviceMode);

          dmPelsWidth := Width;

          dmPelsHeight := Height;

          dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

     end;

     Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

     SetScreenResolution(640, 480);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

     SetScreenResolution(OldWidth, OldHeight);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  OldWidth := GetSystemMetrics(SM_CXSCREEN);

  OldHeight := GetSystemMetrics(SM_CYSCREEN);

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

  SetScreenResolution(800, 600);

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

  SetScreenResolution(1024, 768);

end;

end.

 By IPIN BOLODEWO Cool



2 Komentar :

IPIN
29 Maret 2010 - 11:10:26 WIB

tinggal tulis scrip di delphi...... langsung run. ok
siap tanding tuk melihat resolusi komputer anda.
h3
10 Maret 2010 - 21:45:43 WIB

yo opo carane iku

Isi Komentar :
Nama :
Website :
Komentar
 
 (Masukkan 6 kode diatas)

 


Langganan RSS


Naufal


Hendri





/ /


September, 2010
MSSR KJS
   1234
567 891011
12131415161718
19202122232425
2627282930  




010497

Pengunjung hari ini : 18
Total pengunjung : 2162

Hits hari ini : 55
Total Hits : 10497

Pengunjung Online: 4



Pilih Browser Favorit Anda?

Internet Explorer
Mozilla Firefox
Google Chrome
Opera

Lihat Hasil Poling







Nama :
Website :
Pesan