用C Builder編寫自已的IE SKIN

資料來源: http://51hoo.51.net/bcb/2002new/doc/35.htm 時下軟體切換SKIN風潮興起，大家是不是想改變一下自已的IE呢？當然網上也有不少為IE SKIN的軟體，用夠了IE SKIN和其它為IE換膚的朋友,有沒有想過也編寫一個自己的IE SKIN呢？ 實際上，對IE進行換膚只不過是在登錄機碼表的“HKEY_CURRENT_USER\Software\Microsoft\Internet E xplorer\Toolbar”下新建兩個字串值“BackBitmap”和“BackBitmapIE5”，用來指定IE的背景圖片路徑。 在C Builder中新建一Application，將其Caption屬性設為“我的IE SKIN”，在其上新建一Panel 元件，將Panel1的Caption屬性改為空，Align屬性設為“alTop”。在Panel1上新建一Label元件，將Label1的Caption屬性改為“路徑：”。再在Panel1上新建一Edit元件，將Edit1的name屬性改為“URL”(沒有引號)，將其Text屬性改為空。再在Panel1上新建一OpenDialog元件，將OpenDialog1的Filter屬性設為“Bitmap|*.bmp”。再在Panel1上新建一Button元件，將Button1的Caption改為“瀏覽…”。再在Panel1上新建一Button元件，將Button2的Caption改為“修改IE外殼”。在Form1上（Panel1之外）新建一ScrollBox元件，將其Align屬性設為“alClient”，在ScrollBox1上新建一Image控件，將其AutoSize屬性設為“true”。好了界面部分完成了，下面該寫代碼了！ 我們建立Image元件的目地是要實時預覽圖像，所以為URL（EDIT）的OnChange事件寫如下代碼： void __fastcall TForm1::URLChange(Tobject *Sender) { Image1->Picture->LoadFromFile(URL->Text); //預覽圖形文件 } 這樣只要URL中的路徑一發生改變Image就會將自動的圖形顯示出來！ 下面我們來完成“瀏覽…”按鈕的功能，雙擊“瀏覽…”按鈕為其單擊事件編寫如下代碼： if (OpenDialog1->Execute()) { URL->Text=OpenDialog->FileName;//將文件名填入URL編輯框 Image1->Picture->LoadFromFile(URL->Text);//預覽圖形文件 } 下面是最重要的部分，雙擊“修改IE外殼”按鈕，為其Click事件編寫代碼： void __fastcall TForm1::Button1Click(Tobject *Sender) { if (strlen(url->Text.c_str())>=5) //主文件名 . BMP不可能小於5個字串 { Tregistry ®key=*new Tregistry();//新建一登錄機碼表 regkey.OpenKey("Software\\Microsoft\\Internet Explorer\\Toolbar",true);//打開要新建或要修改的字串 regkey.WriteString("BackBitmap",url->Text.c_str());//修改 regkey.WriteString("BackBitmapIE5",url->Text.c_str()); regkey.CloseKey();//關閉所有打開的登錄機碼表字串 delete ®key;//刪除登錄機碼表 } else { Application->MessageBox("BMP圖象路徑不可能少於5個字元","錯誤",MB_OK); } } 好了，至此整個程序寫完了，Save，編譯，執行，怎麼樣？沒效果？！重新啟動你的IE看一看，有效果了吧！ 時間就是金錢---[ 發問前請先找找舊文章] 發表人 - axsoft 於 2002/08/06 10:47:48