?
Solved

Internet Explorer

Posted on 2001-07-31
6
Medium Priority
?
154 Views
Last Modified: 2010-04-06
I'm using Delphi 2 and want to be able to disable/enable:

* Toolbars, Status bar and menu of IE on both Win98 and WinNT 4

I shall award the points to the one that can show me how to do all three with IE on both platforms.

anyone got a way of doing this?

0
Comment
Question by:winuser2000
[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
6 Comments
 
LVL 1

Expert Comment

by:umulig
ID: 6339995
0
 
LVL 5

Accepted Solution

by:
alanwhincup earned 450 total points
ID: 6340041
I've done Toolbars and Statusbar:


procedure ShowIEToolBar(Enable : Boolean);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Software\Microsft\Internet Explorer\Main', False);
    if Enable = True then
      WriteString('Show_ToolBar', 'yes')
    else
      WriteString('Show_ToolBar', 'no');
    CloseKey;
    Free;
  end;
end;

procedure ShowIEStatusBar(Enable : Boolean);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Software\Microsft\Internet Explorer\Main', False);
    if Enable = True then
      WriteString('Show_StatusBar', 'yes')
    else
      WriteString('Show_StatusBar', 'no');
    CloseKey;
    Free;
  end;
end;

Both these procedures could be joinded together because they are very similar. I will try and find out how to disable the menu and then will post some final code.

I havent tested these on Win NT yet so am not sure if its what your looking for.

Cheers,

Alan
0
 

Author Comment

by:winuser2000
ID: 6340177
Umulig - i already had looked at that site but didn't find anything of use.  Did i miss something?

AlanWhincup - So far so good.  
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 1

Expert Comment

by:h_mohsenian
ID: 6341162
listening... :-)
0
 

Expert Comment

by:BryGuy
ID: 6341647
From the euromind.com/iedelphi, download IE5Tools - it has functions for everything you mentioned.

Bryan Ashby
0
 

Author Comment

by:winuser2000
ID: 6434571
thanks all - i have closed this question as no one supplied a complete answer.  AlanWhincup provided 2/3 of the answer so i gave him the points.
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying 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

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses
Course of the Month14 days, 20 hours left to enroll

771 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