Ich hab ein Problem beim auslesen eines "Strings" aus der Registry. Und zwar bei WinNT, WinNT Server, Win 98 kann ich mit folgendem Code den Wert aus der Registry auslesen. BEi einem Win95er Rechner funktioniert das nicht, kann mir vielleicht jemand helfen, hat jemand eine Idee?
const
REG_PFAD = '\Software\Firma\Kunde\';
REG_DB_PFAD = 'DBPfad';
function ReadDBPfadFromReg:string;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
try
Reg.RootKey := HKEY_CURRENT_USER;
If Reg.OpenKey(REG_PFAD,false) then
Result := Reg.ReadString(REG_DB_PFAD)
else
Result := '';
Reg.CloseKey;
finally
Reg.Free;
end;
end;
const
REG_PFAD = '\Software\Firma\Kunde\';
REG_DB_PFAD = 'DBPfad';
function ReadDBPfadFromReg:string;
var
Reg : TRegistry;
begin
Reg := TRegistry.create;
try
Reg.RootKey := HKEY_CURRENT_USER;
If Reg.OpenKey(REG_PFAD,false) then
Result := Reg.ReadString(REG_DB_PFAD)
else
Result := '';
Reg.CloseKey;
finally
Reg.Free;
end;
end;
Comment