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
Solved

TRegistry

Posted on 2000-02-21
7
497 Views
Last Modified: 2010-04-04
Has someone got an example of how to read and write a key from the registry.

Thanks
0
Comment
Question by:Frantic
7 Comments
 
LVL 3

Accepted Solution

by:
raidos earned 100 total points
ID: 2545082
I believe this should cover it.


Procedure TForm1.Button1Click(Sender: TObject);
Var
 S : String;
 Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Path to Registry key\', False) then Begin
         S := Reg.ReadString('Keyname');
         Reg.WriteString('Keyname','Store this');
     End;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;

Good luck
//raidos
0
 

Expert Comment

by:MaratX
ID: 2545249
// For next example
// Just read language from regestry
  GetLocaleInfo( LOCALE_SYSTEM_DEFAULT, LOCALE_SENGLANGUAGE, @LocaleStr, sizeof(LocaleStr) );
0
 
LVL 8

Expert Comment

by:ZifNab
ID: 2545387
the easiest is to use the TRegIniFile. This is a wrapper around TRegistry in such a way that it looks like you're writing to an inifile (thus old programs saving to an ini-file can easely be changed to saving the registry) see regini example in help file!

unit reginid;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Registry;

type
  TRegIniForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    CheckBox_Write: TCheckBox;
    RadioGroup_Write: TRadioGroup;
    Edit_Write: TEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    CheckBox_Read: TCheckBox;
    RadioGroup_Read: TRadioGroup;

    Edit_Read: TEdit;
    Memo_Read: TMemo;
    Button_Write: TButton;
    Button_Read: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button_WriteClick(Sender: TObject);
    procedure Button_ReadClick(Sender: TObject);
    procedure CheckBox_ReadClick(Sender: TObject);
    procedure RadioGroup_ReadClick(Sender: TObject);
  private
    { Private declarations }
    procedure Read_Registry;

    procedure Write_Registry;
  public
    { Public declarations }
    FIniFile: TRegIniFile;
  end;

var
  RegIniForm: TRegIniForm;

implementation

{$R *.DFM}

const
  SECTION = 'Sample';

procedure TRegIniForm.FormCreate(Sender: TObject);
begin
  FIniFile := TRegIniFile.Create('Sample Registry');
end;

procedure TRegIniForm.FormDestroy(Sender: TObject);
var
  Cleanup: TRegistry;

  key: string;
begin
  key := FIniFile.FileName;
  FIniFile.Free;

  // make sure we don't leave junk in the registry behind.
  Cleanup := TRegistry.Create;
  try
    Cleanup.DeleteKey(key);
  finally
    Cleanup.Free;
  end;
end;

procedure TRegIniForm.Write_Registry;
begin
  FIniFile.WriteBool(SECTION, 'BooleanTest', CheckBox_Write.Checked);
  FIniFile.WriteInteger(SECTION, 'IntegerTest', RadioGroup_Write.ItemIndex);

  FIniFile.WriteString(SECTION, 'StringTest', Edit_Write.Text);

  if not Button_Read.Enabled then Button_Read.Enabled := True;
end;

procedure TRegIniForm.Read_Registry;
begin
  CheckBox_Read.Checked := FIniFile.ReadBool(SECTION, 'BooleanTest', False);
  RadioGroup_Read.ItemIndex := FIniFile.ReadInteger(SECTION, 'IntegerTest', 0);
  Edit_Read.Text := FIniFile.ReadString(SECTION, 'StringTest', '');

  Memo_Read.Lines.Clear;

  FIniFile.ReadSectionValues(SECTION, Memo_Read.Lines);

  Button_Read.Enabled := False;
end;

procedure TRegIniForm.Button_WriteClick(Sender: TObject);
begin
  Write_Registry;
end;

procedure TRegIniForm.Button_ReadClick(Sender: TObject);
begin
  Read_Registry;
end;


procedure TRegIniForm.CheckBox_ReadClick(Sender: TObject);
begin
  Read_Registry;
end;

procedure TRegIniForm.RadioGroup_ReadClick(Sender: TObject);

begin
  Read_Registry;
end;

end.

Regards, Zif.
0
Networking for the Cloud Era

Join Microsoft and Riverbed for a discussion and demonstration of enhancements to SteelConnect:
-One-click orchestration and cloud connectivity in Azure environments
-Tight integration of SD-WAN and WAN optimization capabilities
-Scalability and resiliency equal to a data center

 
LVL 17

Expert Comment

by:geobul
ID: 2545454
Read :

with TRegistry.Create do begin
    RootKey := HKEY_LOCAL_MACHINE; { HKEY_CURRENT_USER by default }
    if OpenKey('Software\Microsoft\Windows\help', false) then begin
      ShowMessage(ReadString('Dao35.hlp'));
      CloseKey;
    end;
    Free;
  end;

Write :

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_USERS; { set root }
  reg.OpenKey('geo',true);   { open a key or create it }
  reg.WriteInteger('gInt',123456); { write unsigned DWORD }
  reg.WriteBool('gBool',true);
  reg.WriteFloat('gFloat',123456.34); { write binary data }
  reg.Free;
end;

Regards, Geo
0
 
LVL 6

Expert Comment

by:Dark_King
ID: 2545605
//Read
procedure TForm1.Button1Click(Sender: TObject);
var
  myreg : treginifile;
  S1 : String;
begin
 MyReg := TregIniFile.create('');
 MyReg.RootKey := Hkey_Local_Machine;
 s1 := MyReg.ReadString('Test', 'Dark_king', '');
 myreg.free;
 edit1.Text:= s1;
end;

//Write
procedure TForm1.Button2Click(Sender: TObject);
 var
 Reg: TRegistry;
 adregtext: String;
begin
 Reg := TRegistry.Create;
  adregtext :='\Test';  //  HKEY_LOCAL_MACHINE\Test
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(adregtext, True)
        then Reg.WriteString('Dark_king','Hear it is');
  finally
    Reg.CloseKey;
    Reg.Free;
    end;
end;
0
 
LVL 6

Expert Comment

by:Dark_King
ID: 2545889
In your questions you want to read the KEY not the VALUE in register
So if you want to read key it can bee more an  one key
This example read all keys under
HKEY_LOCAL_MACHINE\Config\0001\System\CurrentControlSet\Control\Print\Printers


procedure TForm1.Button1Click(Sender: TObject);
var
Reg3: TRegistry;
deltext: String;
Val:TStringList;
  I: Integer;
      j:String;
begin
   deltext :='\Config\0001\System\CurrentControlSet\Control\Print\Printers';
  Reg3 := TRegistry.Create;
  try

    Reg3.RootKey := HKEY_LOCAL_MACHINE;
    if  Reg3.OpenKey(deltext,False) then
      Val:=TStringList.Create;
      reg3.GetKeyNames(Val);
       for I:=0 to Val.Count-1 do
         begin
          j:=Val.Strings[I]   ;

           ListBox1.items.Add(Val.Strings[I]) ;
         end;
           finally
  Val.Free;
  Reg3.CloseKey;
  Reg3.Free;
    inherited;
    end;
end;
0
 

Author Comment

by:Frantic
ID: 2545960
Thanks
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

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

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
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…
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 …
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

861 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