DELPHI, UBAHSEGALANYA.BLOGSPOT.CO.ID - Pada kali ini saya akan membuat tutorial bagaimana membuat aplikasi sederhana yang berfungsi untuk mengubah tampilan gambar desktop(wallpaper). Untuk lebih jelasnya anda bisa lihat tutorialnya dibawah ini :
- Buka Delphi
- Buat project baru
- Tambahkan komponen dibawah ini, kedalam lembar project :
No
|
Komponen
|
Nama Pallate
|
Jumlah
|
1
|
TOpenDialog
|
Dialogs
|
1
|
2
|
TGroupBox
|
Standard
|
1
|
3
|
TButton
|
Standard
|
2
|
4
|
TEdit
|
Standard
|
1
|
- Setting komponen seperti dibawah ini :
No
|
Komponen
|
Nama Properties
|
Value
|
1
|
OpenDialog1
|
Name
|
OpenDialog1
|
2
|
GroupBox1
|
Caption
Name
|
Setting Wallpapaer
GroupBox1
|
3
|
Button1
|
Caption
Name
|
Cari File …
Button1
|
4
|
Button2
|
Caption
Name
|
Ganti Wallpaper
Button2
|
5
|
Edit1
|
Enabled
Name
Text
|
False
Edit1
-
|
- Buat prosedur ChangeWallpaper, seperti dibawah kode dibawah ini :
//dibawah {$R *.dfm}
procedure ChangeWallpaper(bitmap : string);
var
pBitmap : PChar;
begin
bitmap := bitmap+#0;
pBitmap := @bitmap[1];
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,pBitmap, SPIF_UPDATEINIFILE);
end;
- Klik dua kali pada tombol Cari File … dan masukan kode dibawah ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName; {}
end;
- Kembali ke lembar design, Klik dua kali pada tombol Ganti Wallpaper, dan masukan kode dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
ChangeWallpaper(Edit1.Text);
end;
- Tekan tombol F9/Run
- Selesai, Selamat mencoba
0 comments:
Post a Comment