[函数]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;
阅读更多
个人分类: 软件技术
想对作者说点什么? 我来说一句

一段用VB生成GUID的代码

2011年06月29日 2KB 下载

GB2BIG5.DCU

2006年02月23日 206KB 下载

Delphi自制维吉尼亚密码源码

2010年05月09日 39KB 下载

DES 加密 解密 源码

2011年12月07日 13KB 下载

Delphi常用公用函数

2009年05月21日 15KB 下载

GetFilenames

2010年03月17日 1KB 下载

md5 guid des base64 crc16 的dll

2011年10月31日 34KB 下载

一个delphi加密函数

2010年02月06日 440B 下载

没有更多推荐了,返回首页

不良信息举报

[函数]function GetLocalSQLDataPath: string;

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭