Bruge registreringsdatabasen

Der er altså lige en del ting, der ikke er erklæret osv...??
Kan I ikke lave et komplet eksempel??

Kode 

unit Unit2;

interface

procedure CreateStringEntry(const AKey : String; const AEntryName : String; const AValue : String);

implementation

uses
  Windows,
  Registry;

procedure CreateStringEntry(const AKey : String; const AEntryName : String; const AValue : String);
var
  Reg : TRegistry;
begin
// Opret registry klassen
  Reg := TRegistry.Create;
// Sæt root key.
  Reg.RootKey := HKEY_LOCAL_MACHINE;
// Åben den angivne nøgle. hvis den ikke findes så opret den automatisk.
  if (Reg.OpenKey(AKey,True)) then
  begin
    // ahh, so far so good.... opret det anginve entry med værdien "AValue".
    Reg.WriteString(AEntryName, AValue)
  end;
// Luk vores registry klasse.
  Reg.CloseKey;
end;

end.

Kode 

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateStringEntry('\\SOFTWARE\\Udvikleren\\NyKey', 'min_streng', 'dette bliver gemt i reg..');
end;

end.

Kode 

object Form1: TForm1
  Left = 236
  Top = 103
  Width = 214
  Height = 155
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 24
    Top = 80
    Width = 65
    Height = 25
    Caption = 'Test'
    TabOrder = 0
    OnClick = Button1Click
  end
end

Hej...
Jeg er rimelig ny i delphi
Jeg kan ikke finde ud af hvordan jeg laver en ny nøgle i registreringsdatabasen. Og jeg har kigget i jeres artikler, men fandt ikke rigtigt det jeg skulle bruge. Håber der er noget, der kan hjælpe mig.

Kode 

  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
// Opret nøglen "NyKey" hvis den ikke allerede eksisterer.
// True angiver at den automatisk skal oprettes.
  Reg.OpenKey('\\SOFTWARE\\Udvikleren\\NyKey',True); 
  Reg.CloseKey;

Hej...
Jeg er rimelig ny i delphi
Jeg kan ikke finde ud af hvordan jeg laver en ny nøgle i registreringsdatabasen. Og jeg har kigget i jeres artikler, men fandt ikke rigtigt det jeg skulle bruge. Håber der er noget, der kan hjælpe mig.
Hej,


Du kan gøre det på følgende måde:

Kode 

  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
// Opret nøglen "NyKey" hvis den ikke allerede eksisterer.
// True angiver at den automatisk skal oprettes.
  Reg.OpenKey('\\SOFTWARE\\Udvikleren\\NyKey',True); 
  Reg.CloseKey;

Håber det hjælper dig
/Michael.

Hej... Sry, det er vidst mig, der er dum
En nøgle er åbenbart en folder lignende ting, hehe
MEn det er en streng jeg egentligt gerne vil tilføje, jo..
Kan du også fortælle mig hvordan det gøres?

Kode 

procedure CreateStringEntry(const AKey : String; const AEntryName : String; const AValue : String);
var
  Reg : TRegistry;
begin
// Opret registry klassen
  Reg := TRegistry.Create;
// Sæt root key.
  Reg.RootKey := HKEY_LOCAL_MACHINE;
// Åben den angivne nøgle. hvis den ikke findes så opret den automatisk.
  if (Reg.OpenKey(AKey,True)) then
  begin
    // ahh, so far so good.... opret det anginve entry med værdien "AValue".
    Reg.WriteString(AEntryName, AValue)
  end;
// Luk vores registry klasse.
  Reg.CloseKey;
end;

begin
  CreateStringEntry('\\SOFTWARE\\Udvikleren\\NyKey', 'min_streng', 'dette bliver gemt i reg..');
end;

Hej... Sry, det er vidst mig, der er dum
En nøgle er åbenbart en folder lignende ting, hehe
MEn det er en streng jeg egentligt gerne vil tilføje, jo..
Kan du også fortælle mig hvordan det gøres?
Hej,

Selvfølgelig kan jeg give dig et nyt eks.

Hvis du skal oprette en værdi (f.eks. en streng under en bestemt nøgle) så kan det gøres på følgende måde:

Kode 

procedure CreateStringEntry(const AKey : String; const AEntryName : String; const AValue : String);
var
  Reg : TRegistry;
begin
// Opret registry klassen
  Reg := TRegistry.Create;
// Sæt root key.
  Reg.RootKey := HKEY_LOCAL_MACHINE;
// Åben den angivne nøgle. hvis den ikke findes så opret den automatisk.
  if (Reg.OpenKey(AKey,True)) then
  begin
    // ahh, so far so good.... opret det anginve entry med værdien "AValue".
    Reg.WriteString(AEntryName, AValue)
  end;
// Luk vores registry klasse.
  Reg.CloseKey;
end;

begin
  CreateStringEntry('\\SOFTWARE\\Udvikleren\\NyKey', 'min_streng', 'dette bliver gemt i reg..');
end;

Hvis der er noget du ikke forstår så skriver du bare og så skal jeg nok forklare det nærmere.

/Michael.