Mega Code Archive
Add a button internet explorer toolbar
<![CDATA[
Add a button Internet Explorer toolbar
ShellSPY V1.1a
is the award winning and powerful monitoring solution that you need! ShellSPY
gives you the power to log all keystrokes, windows viewed, applications ran, internet
connections made, passwords entered, chat conversations that were made, Monitor
all running tasks on your pc Download
Now
Web Site:
Cjpsoftware.com
// Author Cjp..
// This is a simple little number that allows you to add a button
// to Internet Explorer 3.0 or above
// Lets get started.
// This module is register based.
// Values:
// ButtonText := The text you want to be displayed at the bottom of the button
// MenuText := The tools option at the top of IE will now contain
// a reference to your program.
// MenuStatusbar:= Script option we are not usinging it this object.(Ignore)
// CLSID := Your classID I won`t explain it because its complex
// I will say. That it has to unique. You can use GUIDTOSTRING
// To create a new CLSID with unit activex.
//
//
// Default Visible:= Display it.
// Exec := Your program path to execute.
// Hoticon := (Mouse Over Event) ImageIndex in shell32.dll ive picked 4
// Icon := Ive selected to display shell32.dll image 4.
// If you require the source drop me an email..
// Merry Xmas and a happy new year..
Procedure CreateExplorerButton(Path: String);
Const Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
Var Reg : TRegistry;
Path: String;
Path1: String;
Merge: String;
Begin
Path := 'c:\your program path';
Reg := TRegistry.CReate;
try
With Reg Do
Begin
RootKey := HKEY_LOCAL_MACHINE;
Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
Merge := Path1 + Tagit;
OPenKey(Merge,True);
WriteString('ButtonText','ButtonText');
WriteString('MenuText','Tools Menu Item');
WriteString('MenuStatusBar','Run Script');
WriteString('ClSid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible','Yes');
WriteString('Exec',Path+'\ProgramName.exe');
WriteString('HotIcon',',4');
WriteString('Icon',',4');
end
Finally
Reg.CloseKey;
Reg.Free;
End;
End;
]]>