Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id

Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com

Sourcecode [ Membuat program skin pada toolbar ] :

Note : Format gambar harus *bmp.

unit Abryan;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
reg:TRegistry;

implementation

{$R *.dfm}

Untuk Skin Baru :

procedure TForm1.Button1Click(Sender: TObject);
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey ('\Software\Microsoft\Internet Explorer\Toolbar',true);
reg.WriteString('BackBitmap','D:\Picture\Adobe\br.bmp');
reg.Free;
end;

Note: Pada 'D:\Picture\Adobe\br.bmp' maksudnya letak gambar yang anda pakai sebagai skin pada toolbar.

Untuk Skin Standar :

procedure TForm1.Button2Click(Sender: TObject);
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey ('\Software\Microsoft\Internet Explorer\Toolbar',true);
reg.DeleteValue('BackBitmap');
reg.Free;
end;

end.