• Flash (3)
• Handphone (2)
• Lain-lain (3)
• Pemrograman (7)
• Software (1)
• Teknologi (5)
• Web (0)
- capture gambar delphi (408)
- perpustakaan (277)
- Windows 7 Gantikan Windows Vista (274)
- Memperkecil Kelemahan Program (250)
- Program Test Resolusi (231)
- rendy pada capture gambar delphi
- h3n pada Mengubah Flashdisk 1 Giga Menjadi 2 Giga
- tsani pada Mengubah Flashdisk 1 Giga Menjadi 2 Giga
- Hasan pada Mengubah Flashdisk 1 Giga Menjadi 2 Giga
- El_Khowary pada Mengubah Flashdisk 1 Giga Menjadi 2 Giga
August 2010 (2)
July 2010 (1)
June 2010 (1)
April 2010 (5)
March 2010 (5)
February 2010 (4)
October 2009 (1)
January 2009 (2)
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 
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 :
| September, 2010 | ||||||
| M | S | S | R | K | J | S |
| 1 | 2 | 3 | 4 | |||
| 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 19 | 20 | 21 | 22 | 23 | 24 | 25 |
| 26 | 27 | 28 | 29 | 30 | ||
Pengunjung hari ini : 18 
Total pengunjung : 2162 Hits hari ini : 55 Total Hits : 10497 
Pengunjung Online: 4
Pilih Browser Favorit Anda?
