答案:
无奈
新兵 因为你没说到键名,所以我假设键名是Path,键类型为字符串型
uses Registry;
var
Reg :TRegistry;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('softwaredelphi',false) then
if ReadString('Path') = 'c:delphi.exe' then
begin
showmessage('键值不用修改');
Exit;
end
else
WriteString('Path','c:delphi.exe')
else
showmessage('打开项失败,请检查项是否存在');
end;
finally
Reg.Free;
end;
上一个:delphi 小数运算
下一个:DELPHI中的数据库连接