Solved

Add Objects To IE

Posted on 2004-10-03
6
206 Views
Last Modified: 2010-04-05
how can i add a TEdit and a TLabel (delphi objects)
to internet Explorer Toolbox?
0
Comment
Question by:alimoradi
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
6 Comments
 
LVL 9

Accepted Solution

by:
ginsonic earned 250 total points
ID: 12211164
This code show how to add a button. Just replace button with your needed vcl.

{
 This is a simple little example that allows you to add a button
 to Internet Explorer 3.0 or above
 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 using this object. (Ignore)
 CLSID := Your classID. I won`t explain it because its complex.
 That it has to unique. You can use GUIDTOSTRING
 To create a new CLSID with the unit ActiveX.

 Default Visible := Display it.
 Exec := Your program path to execute.
 Hoticon := (Mouse Over Event) ImageIndex in shell32.dll i've picked 4
 Icon := I've selected to display shell32.dll image 4.
}


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;
0
 
LVL 9

Expert Comment

by:ginsonic
ID: 12211167
Not my code. Just found on past on net.
0
 
LVL 6

Expert Comment

by:Amir Azhdari
ID: 12211286
to add a tlabel or tedit , I think you should add a new toolbar first
take a look in the registry address :
HKEY_CLASSES_ROOT\CLSID
it's CLSID of Internet Toolbar
{5E6AB780-7743-11CF-A12B-00AA004AE837}
but I don't know how to create that first
0
 
LVL 9

Expert Comment

by:ginsonic
ID: 13180081
no comments for a long time!
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question