[函数]function GetLocalSQLDataPath: string;

{------------------------------------}
{    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;