changing background windos Explorer toolbar with a bitmap image
This program describes the changing background windos Explorer toolbar with a bitmap image. Made this very simple program, which provides data on key BackBitmapShell value HKEY_CURRENT_USER \ Software \ Microsoft \ Internet Explorer \ toolbar and value is a bitmap file path is used.
Fom design on 2 Button and take poperty Dialogue with OpenPictureDialog, and also EditText
This complete program 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;
