Delphi通過注冊表修改IE主頁和標題欄文字

這是一個Delphi與Windows注冊表相關的示例程序，修改IE的標題欄信息，並更改IE默認的主頁，修改並保存注冊表相關值，程序示例代碼如下：

vIEw source print? 01 unit MiniIETool_Main; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, Buttons, ExtCtrls, Registry, ComCtrls; 06 type 07   TForm1 = class(TForm) 08     Label1: TLabel; 09     Edit1: TEdit; 10     Label2: TLabel; 11     Edit2: TEdit; 12     BitBtn1: TBitBtn; 13     BitBtn2: TBitBtn; 14     StatusBar1: TStatusBar; 15     procedure BitBtn1Click(Sender: TObject); 16     procedure BitBtn2Click(Sender: TObject); 17     procedure FormCreate(Sender: TObject); 18   private 19     { Private declarations } 20   public 21     { Public declarations } 22   end; 23 var 24   Form1: TForm1; 25 implementation 26 {$R *.dfm} 27 //修改IE標題 28 procedure TForm1.BitBtn1Click(Sender: TObject); 29 var 30   MyReg:TRegistry; 31   MyTitle:string; 32 begin 33   //讀取IE標題字符串 34   MyTitle:=edit1.Text; 35   MyReg:=TRegistry.Create; 36   MyReg.RootKey:=HKEY_CURRENT_USER; 37   try 38     if MyReg.OpenKey('\software\microsoft\internet explorer\main',true) then 39       begin 40         //寫入新的IE標題到注冊表 41         MyReg.WriteString('window title',MyTitle); 42         MyReg.CloseKey; 43       end; 44   finally 45     MyReg.Free; 46   end; 47   StatusBar1.SimpleText:='修改IE標題成功,重新打開IE就能夠看到效果。'; 48 end; 49 //修改IE首頁 50 procedure TForm1.BitBtn2Click(Sender: TObject); 51 var 52   MyReg:TRegistry; 53   MyPage:string; 54 begin 55   //讀取IE首頁字符串 56   MyPage:=edit2.Text; 57   MyReg:=TRegistry.Create; 58   MyReg.RootKey:=HKEY_CURRENT_USER; 59   try 60     if MyReg.OpenKey('\software\microsoft\internet explorer\main',true) then 61       begin 62         //寫入新的IE主頁到注冊表 63         MyReg.WriteString('start page',MyPage); 64         MyReg.CloseKey; 65       end; 66   finally 67      MyReg.Free; 68   end; 69   StatusBar1.SimpleText:='修改IE首頁成功,重新打開IE就能夠看到效果。'; 70 end; 71 //在程序啟動時讀取IE相關信息 72 procedure TForm1.FormCreate(Sender: TObject); 73 var 74   MyReg:TRegistry; 75   CurrentTitle,CurrentPage:string; 76 begin 77   MyReg:=TRegistry.Create; 78   MyReg.RootKey:=HKEY_CURRENT_USER; 79   try 80     if MyReg.OpenKey('\software\microsoft\internet explorer\main',true) then 81       begin 82         //從注冊表讀取IE相關信息 83         Edit1.Text:=MyReg.ReadString('window title'); 84         Edit2.Text:=MyReg.ReadString('start page'); 85         MyReg.CloseKey; 86       end; 87   finally 88     MyReg.Free; 89   end; 90   StatusBar1.SimpleText:='修改IE標題成功,重新打開IE就能夠看到效果。'; 91 end; 92 end.