作者：昆明 閻磊 uses registry; var Reg1: TRegistry; begin Reg1:=TRegistry.Create; Reg1.RootKey := HKEY_LOCAL_MACHINE; Reg1.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Extensions', True); Reg1.CreateKey('{37E91B47-F40A-11D1-B792-444553540000}'); Reg1.OpenKey('\SOFTWARE\Microsoft\Internet Explorer\Extensions\{37E91B47-F40A-11D1-B792-444553540000}', True); Reg1.WriteString('ButtonText', '按鈕名稱');//按鈕名 Reg1.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');//系統默認id,是一定，你可以參考網路螞蟻的 Reg1.WriteString('Default Visible', 'Yes');//缺省可以 Reg1.WriteString('Exec', 'F:\煙葉\Baccy.exe'); //按鈕要執行的事件 Reg1.WriteString('HotIcon', 'C:\WIN98\WINUPD.ICO');//熱圖示 Reg1.WriteString('Icon', 'C:\WIN98\WEB\chang.ico');//圖示 Reg1.CloseKey; Reg1.Free; end; //本人的運行環境爲windows2000 delphi5 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

轉貼一篇, 大同小異 http://delphi.about.com/bltip0502.htm

{
1. ButtonText = Text at the bottom 
of the button 
2. MenuText = The tools menu item with 
a reference to your program. 
3. MenuStatusbar = *Ignore* 
4. CLSID = Your unique classID. 
You can use GUIDTOSTRING to create 
a new CLSID (for each button).       5. Default Visible := Display it. 
6. Exec := Your program path to execute. 
7. Hoticon := (Mouse Over Event) 
ImageIndex in shell32.dll 
8. Icon := ImageIndex in shell32.dll
}      procedure CreateExplorerButton;
const
  // the same explanation as for the CLSID
  TagID = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
        ProgramPath: string;
  RegKeyPath: string;
begin
 ProgramPath := 'c:\folder\exename.exe';
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_LOCAL_MACHINE;
   RegKeyPath := 'Software\Microsoft\Internet Explorer\Extensions';
   OpenKey(RegKeyPath   TagID, True);
   WriteString('ButtonText', 'Your program Button text');
   WriteString('MenuText', 'Your program Menu text');
   WriteString('MenuStatusBar', 'Run Script');
   WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
   WriteString('Default Visible', 'Yes'); 
   WriteString('Exec', ProgramPath);
   WriteString('HotIcon', ',4');
   WriteString('Icon', ',4');
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;
{
After you run this code, start a new 
instance of IE. You might need to go to
View | Toolbars | Customize and
move your button from "Available toolbar
buttons" to "Current toolbar buttons"  
}     

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.