Change the Background Toolbar of Windows Explorer with Bitmap Images

This program describes windos Explorer toolbar to change the background with a bitmap image. Who conducted the program is very simple, namely, providing data on key BackBitmapShell value HKEY_CURRENT_USER

\ Software \ Microsoft \ Internet Explorer \ Toolbat and its value is a bitmap file path is used.

In the second design Fom poperty Button and Dialog by taking OpenPictureDialog, and also EditText

This Complete Progam listing :

Procedure Tform1.Button1Click(Sender:TObject);
begin
if OpenPictureDialog1.Execute then
Edit1.Text:=OpenPicutreDialog1.FileName;
end;

Procedure Tfrom1.Button2Click(Sender:TObject);
var Register:Tregister;
begin
Register:=Tregister.create;
Register.RootKey:=HKEY_CURRENT_USER;
try
try
Register.OpenKey('\Software\Microsoft\Internet Explorer\'+ 'Toolbar',True);
Register.WriteString('BackBitmapShell',Edit1.Text);
ShowMessage('Berhasil mengubah background toolbar'+#13+'Untuk melihat hasilnya,buka'+
' "Windows Explorer" baru.');
Except on ERegistryException do
ShowMessage('Gagal mengubah background toolbar explorer');
end;
Finally
Register.CloseKey;
Register.Free;
end;