Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Exploring Registry in Windows 95

Posted on 1998-03-23
6
Medium Priority
?
143 Views
Last Modified: 2010-04-06
please tell me how to read the windows registry (better if source code is given) especially exploring.
0
Comment
Question by:bluebird031198
[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:pjdb
ID: 1360728
Just reading? Use the regedit.exe program (c:\windows\regedit.exe)

JDB
0
 

Author Comment

by:bluebird031198
ID: 1360729
I mean I want to make a program that can run as an Install Shield, so while installing a software we added registry entry to Windows 95 Operating System. Thank you for your answers.
0
 
LVL 4

Expert Comment

by:d003303
ID: 1360730
Look at the TRegistry-object if you are using D2/3 or the TRegIni-object in D1.

Slash/d003303
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 3

Accepted Solution

by:
williams2 earned 90 total points
ID: 1360731
Try this:

unit Unit1;

interface

uses
  Windows, Forms, Dialogs, Registry, StdCtrls, Controls, Classes;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

Function GetExecuteable(Const Extension: String): String;
// Extension = '.XXX'
var
  Reg: TRegistry;
  FileType: String;
Begin
  Result:= '';
  Try
    Reg:= TRegistry.Create;
    With Reg do
    Begin
      Reg.Rootkey:= HKEY_CLASSES_ROOT;
      If OpenKey(Extension,False) then // We don't want to create key
      If ValueExists('') then // '' means default value
      Begin
        FileType:= ReadString('');
        CloseKey;
        if OpenKey(FileType+'\Shell\Open\Command',False) then
        if ValueExists('') then Result:= ReadString('');
      End;
    End;
  Finally
    Reg.Free;
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Executable: '+GetExecuteable(Edit1.Text));
end;

0
 

Author Comment

by:bluebird031198
ID: 1360732
thanks a lot.
0
 
LVL 3

Expert Comment

by:williams2
ID: 1360733
You are welcome anytime! :-)
0

Featured Post

Ask an Anonymous Question!

Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.

Question has a verified solution.

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

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 my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
Suggested Courses

618 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