• Zaloguj się!
• Zarejestruj się!

• Kompendium wiedzy
  • Delphi
    • Delphi 7. Kompendium programisty
    • Delphi 2005. Kompendium programisty
    • Artykuły
    • Gotowce
    • FAQ
  • C/C++
    • Artykuły
    • FAQ
  • C#
    • Wprowadzenie do C#
  • PHP
    • FAQ
  • Python
  • Java
  • Turbo Pascal
  • Z pogranicza
    • FAQ
  • Assembler
  • Algorytmy
  • (X)HTML
  • CSS
• Forum
  • Newbie
  • Delphi/Pascal
  • C/C++
  • C# i .NET
  • Java
  • PHP
  • Webmastering
  • Inne
  • Bazy danych
  • Algorytmy i struktury danych
  • Inżynieria oprogramowania
  • Praca
  • Off-Topic
  • Hardware/Software
  • Edukacja
  • Społeczność
  • Flame
  • Coyote
• Nowości
• Pastebin

• Edycja
• Napisz nowy artykuł w tym dziale
• Obserwuj
• Historia i autorzy

Rejestry systemu Windows

Klasa TRegistry

 
procedure TMainForm.btnAcceptClick(Sender: TObject);
var
  Reg : TRegistry; // deklaruj zmienna dla klasy
begin
  Reg := TRegistry.Create;  // stworz zmienna
  try
    Reg.OpenKey('SoftwareRegApp', True); // utworz katalog
  finally
    Reg.Free; // zwolnij klase
  end;
end;
 

Piszemy przykładowy program

 
procedure TMainForm.btnAcceptClick(Sender: TObject);
var
  Reg : TRegistry; // deklaruj zmienna dla klasy
begin
  Reg := TRegistry.Create;  // stworz zmienna
  try
    Reg.OpenKey('SoftwareRegApp', True); // utworz katalog
 
    Reg.WriteString('Imie', edtName.Text); // zapisz imie
    Reg.WriteDate('Data', Calendar.Date); // zapisz date
  finally
    Reg.Free; // zwolnij klase
  end;
end;
 
 

 
procedure TMainForm.FormCreate(Sender: TObject);
var
  Reg : TRegistry;
  KeyExists : Boolean;
begin
  Reg := TRegistry.Create;
  try
    KeyExists := Reg.OpenKey('SoftwareRegApp', False); // otworz klucz
    if not KeyExists then
    begin
      Calendar.Date := Now; // ustaw dzisijsza date na kalendarzu
      Exit; // nie rob juz nic...
    end;
 
    edtName.Text := Reg.ReadString('Imie'); // odczytaj imie i przypisz do kontrolki
    Calendar.Date := Reg.ReadDate('Data'); // odczytaj date i wyswietl w kalendarzu
  finally
    Reg.Free;
  end;
end;
 

 
procedure TMainForm.btnEraseClick(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.DeleteKey('SoftwareRegApp');  // wykaowanie klucza
    Application.MessageBox('Klucze zostały prawidłowo usunięte.', 'Sukces', 
MB_OK + MB_ICONINFORMATION);
  finally
    Reg.Free;
  end;
end;
 

 
(****************************************************************)
(*                                                              *)
(*                     Sample RegApp                            *)
(*           Copyright (c) 2001 by Adam Boduch                  *)
(*                  www.4programmers.net                        *)
(*                   boduch@poland.com                          *)
(*                                                              *)
(****************************************************************)
 
unit MainFrm;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;
 
type
  TMainForm = class(TForm)
    Calendar: TMonthCalendar;
    Label1: TLabel;
    edtName: TEdit;
    btnAccept: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnAcceptClick(Sender: TObject);
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.DFM}
 
uses Registry;
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  Reg : TRegistry;
  KeyExists : Boolean;
begin
  Reg := TRegistry.Create;
  try
    KeyExists := Reg.OpenKey('SoftwareRegApp', False); // otworz klucz
    if not KeyExists then
    begin
      Calendar.Date := Now; // ustaw dzisijsza date na kalendarzu
      Exit; // nie rob juz nic...
    end;
 
    edtName.Text := Reg.ReadString('Imie'); // odczytaj imie i przypisz do kontrolki
    Calendar.Date := Reg.ReadDate('Data'); // odczytaj date i wyswietl w kalendarzu
  finally
    Reg.Free;
  end;
end;
 
procedure TMainForm.btnAcceptClick(Sender: TObject);
var
  Reg : TRegistry; // deklaruj zmienna dla klasy
begin
  Reg := TRegistry.Create;  // stworz zmienna
  try
    Reg.OpenKey('SoftwareRegApp', True); // utworz katalog
 
    Reg.WriteString('Imie', edtName.Text); // zapisz imie
    Reg.WriteDate('Data', Calendar.Date); // zapisz date
  finally
    Reg.Free; // zwolnij klase
  end;
end;
procedure TMainForm.btnEraseClick(Sender: TObject);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.DeleteKey('SoftwareRegApp');  // wykaowanie klucza
    Application.MessageBox('Klucze zostały prawidłowo usunięte.', 'Sukces', 
MB_OK + MB_ICONINFORMATION);
  finally
    Reg.Free;
  end;
end;
 
end.
 

 
// typ Integer
Reg.WriteInteger('WartoscInteger', 12); 
// zapisana liczba 12
 
// odczyt typu Integer
Edit1.Text := IntToStr(
Reg.ReadString('WartoscInteger')); 
 
// typ Boolean
Reg.WriteBool('WartoscBoolean', True); 
// zapisana wartość True
 
// odczytanie wartości Boolean:
Checkbox1.Checked := Reg.ReadBool(
'WartoscBoolean'); 
 
// typ zmienno - przecinkowy
Reg.WriteCurrency('WartoscCurrency', 3.12); 
// zapisanie 3.12
 
// odczyt wartości Currency:
Edit2.Text := CurrToStr(
Reg.ReadCurrency('WartoscCurrency')); 
 
// zapisz aktualną datę i czas
Reg.WriteDateTime('DataIczas', Now); 
// zapisz aktualną datę i czas
 
// odczytaj datę i czas
Edit3.Text := DateTimeToStr(
Reg.ReadDateTime('DataIczas')); // odczytaj datę i czas
 
 

Aby dodac wartosc hex to
var r:tregistry;
tablica:array of char;
linia:string;
i, j:integer;
begin
linia := ':00,00,00,00,00,00,10,40';

SetLength(tablica, length(linia) div 3);
i:=0;
j:=2;
while j<=length(linia) do begin
tablica[i]:=chr(strtoint('$'+linia[j]+linia[j+1]));
j:=j+3;
inc(i);
end;
r:=tregistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
r.OpenKey('Software\cos',true);
r.WriteBinaryData('cos',tablica[0],length(tablica));
r.CloseKey;
r.Free;
end;

w jaki sposób wykonać kopie całego rejestru lub zaznaczonego głównego klucza np. HKEY_LOCAL_MACHINE ?? :)

Nalezaloby sie zastanowic nad usunieciem tego tekstu... na gorze tego dokumentu dodalem link do aktualnej, rozszerzonej i bardziej rozbudowanej wersji.

mnie takzę się przyda iż teraz wiekszośc programów (wiekszych) :P korzysta własnie z zapisywania do rejestru :P...:D

Ok rozwiązałem problem rejestru typu REG_MULTI_SZ.
Pod tym adresem www.stiopaxxl.webpark.pl/EthernetProfile.zip jest program gdzie stosuje procedury do odczytu i zapisu tego brzydkiego typu.
Pozdrawiam.

 ubaff REG_MULTI_SZ to tablica łańcuchów znaków ale jak to dziadostwo odczytać to nie wiem :-)

writeString pozwala zapisac rejest typu      \"REG_SZ\"
a jak zapisac typ      \"REG_MULTI_SZ\" ??

"Rejestry" są w procesorach, a nie w W$ :-D

jak sprawdzić czy istniejeją jakieś dane w wartości jak istanieją to zrob coś else tez cos zrób...

chodzi mi o coś takiego:
Reg:=Tregistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
Reg.OpenKey('CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\MiscStatus\1', true);
if Reg.ValueExists('', '131473') then
 CheckBox12.Checked:=false
 else
 CheckBox12.Checked:=true;

bardzo proszę o pomoc na maila: adsoft(at)gazeta(dot)pl
1. Ma sprawdzić wartość '' (to akurat jest wartośc domyślna)
2. Ma sprawdzić dane w Wartości Domyślnej - czyli jeśli to: '131473' istnieje to zrob to else tamto...

Hmm OK ale jak wstawić Klucz DWORD ???

brakuje jeszcze tylko Reg.WriteBinaryData a tego wlasnie mi trzeba... :(

Boski artykuł na pewno się przyda :D:D:D

regedit a nie regEdit i nie registry.

chyba pisze się regEdit a nie registry :-)