There was an error in this gadget

Galeri Foto

26 April 2010

Cara Merubah Background Explorer

0 comments
Cara merubah background windows explorer ini menggunakan Delphi. Jadi ya anda harus menginstall delphi dulu dong pastinya...
Dengan delphi, buat form seperti ini :



Komponen :
1.Label : caption =Lokasi file gambar
2.Edit : biarkan tidak usah diubah property nya
3.Button1 : caption = Browse
4.Button2 : caption = Ubah background
5.OpenPictureDialog : tidak usah diubah property nya


Klik ganda pada tombol browse, dan ketik kan kode berikut ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
if openpicturedialog1.execute then
edit1.Text:=openpicturedialog1.FileName;
end;



kemudian tambahkan “registry” pada uses:


Kemudian tekan F12 untuk kembali ke form.
Klik ganda pada tombol Ubah Background, dan ketik kode berikut:
procedure TForm1.Button2Click(Sender: TObject);
var reg:tregistry;
begin
reg:= tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
try
try
reg.OpenKey('software\microsoft\internet explorer\toolbar',true);
reg.WriteString('BackBitmapShell', edit1.text);
showmessage('berhasil, restart explorer nya');
except on eregistryexception do
showmessage('gagal');
end;
finally
reg.CloseKey;
reg.Free;
end;
end;

klik run (yang saya beri tanda kotak merah/atas)


setelah itu akan tamppil hasilnya sebagai berikut:


Klik Browse, dan cari lah file gambar berekstensi bmp. Biasanya di C:/windows ada banyak.
Setelah itu klik Ubah Background.

Untuk melihat hasilnya, tutup windows explorer anda, dan buka lagi, lihat hasilnya… backgroundnya berubah.


Kalau kita lihat di registry, maka pada HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar maka akan bertambah shell key : BackBitmapShell dengan isi data C:\windows\blue lace 16.bmp


selamat mencoba dech, tapi kalau mau permanent ya tentu saja om deepfreeze nya di thawed dulu.

0 comments:

Post a Comment

Sebelum meninggalkan halaman ini, silahkan kasih masukan pada blog ini...