[Delphi] [oder -bat] Registry Wert schreiben

N30N · 4. August 2007

[oder -bat] Registry Wert schreiben

HI,

in meinem Programm möcht ich ne Funktion drinnehaben die den Standartprogramminstallationspfad ändert. Der zugehörige Registry Key ist:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir

Wie ändere ich den entweder mit Batch oder direkt in Delphi?

Danke!

Anzeige

K-Ni · 4. August 2007

AW: [oder -bat] Registry Wert schreiben

Delphi:

Code:

Uses registry;
...
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\',false);
Reg.WriteString('ProgramFilesDir','blub');
Reg.Free;
...

Batch:

reg ADD HKLM\Software\Microsoft\Windows\CurrentVersion /v "ProgramFilesDir" /t REG_SZ /d "blub" /f

(/f Force overwriting the existing registry entry without prompt)

Bei dem Befehl "reg" bin ich mir aber nicht sicher ob er auch bei z.B. 9x-System vorhanden ist...
er scheint etwas Kommandozeilen spezifisches bei NT zu sein......

da wo blub steht kommt dein neuer string rein....
bei Fragen fragen....
bei Fehlern berichtigen.....

Hardwarehunger · 4. August 2007

AW: [oder -bat] Registry Wert schreiben

batch:

Code:

@echo off
echo Windows Registry Editor Version 5.00 >> 1.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\...] >> 1.reg
echo "SCHLÜSSEL"="WERT" >> 1.reg
regedit /s 1.reg
del 1.reg
exit

nicht getestet^^

N30N · 6. August 2007

AW: [oder -bat] Registry Wert schreiben

Also mein Quelltext sieht jetzt folgendermassen aus:

Code:

procedure TEasyinstall.InstallpfadClick(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\',false);
Reg.WriteString('ProgramFilesDir',edit1.text);
Reg.Free;
end;

uses registry hab ich drinne.

Doch trotzdem wird der Dateipfad nicht geändert. Was mach ich denn falsch? Hab mal getestet was für ein Pfad angezeigt wird bei Setupprogrammen, doch trotzdem steht dort weiterhin c:\programme anstatt meinem test Ordner c:\test\. Ich hab auch versucht der Ordner per Hand zu erstellen, allerdings trotzdem kein Erfolg.

Edit1.text ist bei mir das eingabefeld, wo ich den Pfad reinschreibe. Ist da vllt was falsch, muss ich nen anderen Datentyp umwandeln?

//Edit: Habs grad nochma getestet, am Edit Feld liegt es wohl nicht.

//Edit2: Der Reg Wert wird tatsächlich geändert...Aber wieso wollen die Setup dann in den alten Pfad installieren? :/

//Edit3: Scheint doch zu funzen ^^ Hier ist erstmal ~closed~

Nützliche Suchen

[Delphi] [oder -bat] Registry Wert schreiben

Videos zum Themenbereich