改变ie工具栏的背景 (2001年2月15日).txt

自己对DELPHI学习的一点体会

改变IE工具栏的背景 (2001年2月15日) 

网友更新  分类:Internet   作者:闫磊  推荐:闫磊   阅读次数:461  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
放Button1，OpenPictureDialog1,filter为Bitmaps (*.bmp)|*.bmp
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
OpenPictureDialog1: TOpenPictureDialog;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Reg1: TRegistry;
s:string;
begin
Reg1:=TRegistry.Create;


Reg1.RootKey := HKEY_CURRENT_USER;

Reg1.OpenKey('\Software\Microsoft\Internet Explorer\Toolbar', True);
s:=Reg1.ReadString('backbitmap');
if s='' then//没有背景当然有也可以改变
begin

if OpenPictureDialog1.Execute then
begin
s:=OpenPictureDialog1.FileName;//只能为BMP
Reg1.WriteString('backbitmap', s);
end;

end;
Reg1.CloseKey;
Reg1.Free;

end;