var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\HugeRock\ShenGuiClient', False);
Result := Reg.ReadString('ShenGuiPath');
if not DirectoryExists(Result) then
Result := '';
Reg.CloseKey;
finally
Reg.Free;
end;
end;
转载于:https://www.cnblogs.com/MaxWoods/archive/2011/10/24/2222335.html