{------------------------------------}
{ MS SQLServer数据库安装路径 }
{ Uses Registry }
{------------------------------------}
function GetLocalSQLDataPath: string;
var
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
with myReg do
try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software/Microsoft/MSSQLServer/Setup/',False) then
Result:=ReadString('SQLDataRoot')+'/Data/'
else
Result:='';
finally
CloseKey;
Free;
end;
end;
{ MS SQLServer数据库安装路径 }
{ Uses Registry }
{------------------------------------}
function GetLocalSQLDataPath: string;
var
myReg:TRegistry;
begin
myReg:=TRegistry.Create;
with myReg do
try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('Software/Microsoft/MSSQLServer/Setup/',False) then
Result:=ReadString('SQLDataRoot')+'/Data/'
else
Result:='';
finally
CloseKey;
Free;
end;
end;