Cara merubah background windows explorer ini menggunakan Delphi. Jadi ya anda harus menginstall delphi dulu dong pastinya...
Dengan delphi, buat form
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)
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 komentar:
:k1 :k2 :k3 :k4 :k5 :k6 :k7 :k8 :k9 :a1 :a2 :a3 :a4 :a5 :a6 :a7 :a8 :a9 .
Posting Komentar