Registry eintrag erstellen?

[Yc4s1vtz]

hallo

ich suche eine kurze knappe anleitung wie ich per Delphi 3 einen Registry eintrag mache

@echo off
reg add HKLM\SOFTWARE\ODBC\ODBC.INI\MSSqL201004 /v Driver /t REG_SZ /d "C:\WINDOWS\system32\SQLSRV32.dll" /f

wie bekomme ich diesen schlüssel da rein?

VG

[s.h.a.r.k]

Tach auch,

hast du schon mal im Forum gesucht? Da gibt es en masse Ergebnisse.

[DeddyH]

Schau Dir mal TRegistry an.

[Yc4s1vtz]

ja bin seit einiger zeit dabei

aber irgendwie komme ich nicht so auf den richtigen dampfer

hmm

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.CreateKey('HKLM\SOFTWARE\ODBC\ODBC.INI\MSSqL201004');
  finally
    Reg.Free;
  end;
end;

[pixfreak]

Hier gibt es ein knappes Tutorial zu der Registry: Delphi-Treff :: Registry

Ich hoffe, das hilft...

VG Pixfreak

[Yc4s1vtz]

danke ich schaue da mal durch

[Matze]

Wenn der Schlüssel existiert (TRegistry.KeyExists), dann musst du ihn mit TRegistry.CreateKey nicht erstellen. Hier genügt TRegistry.OpenKey. Ist hier der 2. Parameter "true", wird der Schlüssel übrigens auch angelegt.
Den Wert selbst kannst du dann mit TRegistry.WriteString o.ä. in die Registry schreiben.

Vergiss ein anschließendes TRegistry.CloseKey aber nicht, wenn du den Schlüssel mit "OpenKey" geöffnet hast.

Grüße, Matze

[Yc4s1vtz]

hallo Matze,

ja das habe ich mir schon gedacht
aber ich habe noch einen denkt fehler drin

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.CreateKey('SOFTWARE\ODBC\ODBC.INI\MSSqL201004');
    Reg.WriteString('Driver', 'C:\WINDOWS\system32\SQLSRV32.dll');
  finally
    Reg.Free;
  end;
end;

also ich erstelle doch einen key mit createkey
anschliessend füge ich ihn doch den unterkey driver hinzu
oder?

[Yc4s1vtz]

tut mir leid

ich hab den fehler

klar wenn ich ihn erstelle muss ich ihn noch öffnen :(

[Matze]

Wie gesagt, nimm "OpenKey" und setze den 2. Parameter auf "true". Existiert der Schlüssel nicht, wird er angelegt.