Solved

Detecting the browser installed

Posted on 1998-01-06
9
178 Views
Last Modified: 2010-04-04
I need some help detecting whether Netscape and Internet Explorer has been installed on the system.

I also need to retrieve the paths of these two browsers if they are installed

Thanks in advance,
WizKid
0
Comment
Question by:WizKid
  • 4
  • 3
  • 2
9 Comments
 
LVL 2

Accepted Solution

by:
Waldek earned 50 total points
ID: 1355349
go to Delphi Super Page and download gotoweb component. In component You have a function FindBrowser
Regards
0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1355350
Here is a code for getting installation directory of Netscape:

uses registry;
...
procedure .....
var FDir: String;
begin
  with TRegistry.Create do
  begin
    OpenKey('Software\Netscape\Netscape Navigator\Main', True);
    FDir := ReadString('Install Directory');
    CloseKey;
    Free;
  end;
end;
0
 

Author Comment

by:WizKid
ID: 1355351
ronit...
How about Internet Explorer??
And does this work for all versions?

Is it possible to get the version number as well?
0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1355352
1. IE
In order to get details on Netscape you need to do some research on the registry file, that's how I got the installation directory. Since I don't have the IE installed in my computer, therefore can't make the inquiry. But you can, after you have seen the example.

2. Netscape versions.
I don't think that Netscape programmers (and any other good programmer, in general) will change the registry keys/values
names from one version to another, since it would be very difficult to maintain the sources.

3. Getting version number.
There are 2 ways to get it:
A. By getting the version of the Netscape Exe file, that is by calling GETFILEVERSIONINFO. An example can be found in:
http://www.borland.co.uk/devsupport/delphi/ti_list/TI3241.html 
B. By reading the registry file as follows:

procedure TForm1.Button1Click(Sender: TObject);
var FVersion: String;
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    OpenKey('SOFTWARE\Netscape\Conference', True);
    FVersion := ReadString('CurrentVersion');
    CloseKey;
    Free;
  end;
end;
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:WizKid
ID: 1355353
Thanks for guiding me to search in the registry...
Have found the way to do it

I can actually get the path from
'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\';

Thanks anyway
WizKid
0
 

Author Comment

by:WizKid
ID: 1355354
Thanks for guiding me to search in the registry...
Have found the way to do it

I can actually get the path from
'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\';

Thanks anyway
WizKid
0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1355355
Yes, but I didn't get the points...
0
 

Author Comment

by:WizKid
ID: 1355356
ronit...

Oops...
I think Waldek got the points. Sorry about that
0
 
LVL 2

Expert Comment

by:Waldek
ID: 1355357
Sorry ronit
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This is a video describing the growing solar energy use in Utah. This is a topic that greatly interests me and so I decided to produce a video about it.
Need to grow your business through quality cloud solutions? With everything required to build a cloud platform and solution, you may feel like the distance between you and the cloud is quite long. Help is here. Spend some time learning about the Con…

932 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now