用C++ Builder編寫自已的IE SKIN
2019-09-06 23:33:41
供稿：網(wǎng)友
時(shí)下軟件換膚熱潮興起，大家是不是想裝點(diǎn)一下自已的IE呢？當(dāng)然網(wǎng)上也有不少為IE換膚的軟件，用夠了IE SKIN和其它為IE換膚的朋友,有沒有想過也編制一個(gè)自己的IE SKIN呢？ 實(shí)際上，對(duì)IE進(jìn)行換膚只不過是在注冊(cè)表的“HKEY_CURRENT_USERSoftwareMicrosoftInternet E
xplorerToolbar”下新建兩個(gè)字符串子鍵“BackBitmap”和“BackBitmapIE5”，用來指定IE的背景圖片路徑。
好了下面跟我來。
在C++ Builder中新建一Application，將其Caption屬性設(shè)為“我的IE SKIN”，在其上新建一Panel 控件，將Panel1的Caption屬性改為空，Align屬性設(shè)為“alTop”。在Panel1上新建一Label控件，將Label1的Caption屬性改為“路徑：”。再在Panel1上新建一Edit控件，將Edit1的name屬性改為“URL”(沒有引號(hào))，將其Text屬性改為空。再在Panel1上新建一OpenDialog控件，將OpenDialog1的Filter屬性設(shè)為“Bitmap|*.bmp”。再在Panel1上新建一Button控件，將Button1的Caption改為“瀏覽...”。再在Panel1上新建一Button控件，將Button2的Caption改為“修改IE外殼”。在Form1上（Panel1之外）新建一ScrollBox控件，將其Align屬性設(shè)為“alClient”，在ScrollBox1上新建一Image控件，將其AutoSize屬性設(shè)為“true”。好了界面部分完成了，下面該寫代碼了！
我們建立Image控件的目地是要實(shí)時(shí)預(yù)覽圖像，所以為URL（EDIT）的OnChange事件寫如下代碼：
void __fastcall TForm1::URLChange(TObject *Sender)
{
Image1->Picture->LoadFromFile(URL->Text); //預(yù)覽圖形文件
}
這樣只要URL中的路徑一發(fā)生改變Image就會(huì)將改動(dòng)后的圖象顯示出來！
下面我們來完成“瀏覽...”按鈕的功能，雙擊“瀏覽...”按鈕為其單擊事件編寫如下代碼：
if (OpenDialog1->Execute())
{
URL->Text=OpenDialog->FileName;//將文件名填入U(xiǎn)RL編輯框
Image1->Picture->LoadFromFile(URL->Text);//預(yù)覽圖形文件
}
下面是最重要的部分，雙擊“修改IE外殼”按鈕，為其單擊事件編寫代碼：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (strlen(url->Text.c_str())>=5) //主文件名+.+BMP不可能小于5個(gè)字符
{
/tTRegistry ®key=*new TRegistry();//新建一注冊(cè)表類
/tregkey.OpenKey("Software/Microsoft/Internet Explorer/Toolbar",true);//打開要新建或要修改的鍵名
/tregkey.WriteString("BackBitmap",url->Text.c_str());//修改
/tregkey.WriteString("BackBitmapIE5",url->Text.c_str());
/tregkey.CloseKey();//關(guān)閉所有打開的注冊(cè)表鍵名
/tdelete ®key;//刪除注冊(cè)表類
}
else
{
/tApplication->MessageBox("BMP圖象路徑不可能少于5個(gè)字符","錯(cuò)誤",MB_OK);
}
}
好了，至此整個(gè)程序?qū)懲炅?，保存，編譯，運(yùn)行，怎么樣？沒效果？！重新啟動(dòng)你的IE看一看，有效果了吧！
有什么問題歡迎來信交流。
