Solved

Exploring Registry in Windows 95

Posted on 1998-03-23
6
137 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
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
Optimizing Cloud Backup for Low Bandwidth

With cloud storage prices going down a growing number of SMBs start to use it for backup storage. Unfortunately, business data volume rarely fits the average Internet speed. This article provides an overview of main Internet speed challenges and reveals backup best practices.

 
LVL 3

Accepted Solution

by:
williams2 earned 30 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

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

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…
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …

831 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