Ahoi,
Zitat von
pszopp:
Hi,
ob es eine solche Methode gibt weiß ich leider auch nicht.
Was spricht dagegen, das Schreiben einfach zu versuchen und den
möglichen Fehler mit Try Except zu behandelt?
Delphi-Quellcode:
try
Reg.WriteString('KeyName', 'NeuerWert');
except
// Fehlerbehandlung
end;
Wenn mein Window-Halbwissen mich nicht täuscht kann in HKey_Current_User
immer etwas schreiben.
Gruß,
pszopp
Wenn ich mich richtig erinnere hat Luckie mal in einen meiner Threads geschrieben das WriteString einen Boolean zurückliefert. Also ist der try-except-Block nicht nötig.
Delphi-Quellcode:
if Reg.WriteString('Keyname', 'Neuer Wert')=true then
begin
ShowMessage('Der User hat Schreibrechte!');
end
else
begin
ShowMessage('Der User hat keine Schreibrechte!');
end;
bye,
Andy