修改UDL文件

最新推荐文章于 2021-02-28 08:21:57 发布

weixin_30871905

最新推荐文章于 2021-02-28 08:21:57 发布

阅读量125

点赞数

原文链接：http://www.cnblogs.com/tk-del/archive/2012/07/31/2616261.html

版权


uses  OleDB, ActiveX, ComObj;



var
  DataInit: IDataInitialize;                  //定义接口
  SouPath, SouStr, DesStr: POleStr;
  tmp, s1, s2: string;
begin
  tmp := 'C:\Program Files\Common Files\System\Ole DB\Data Links\ShichADOConfig.UDL';
  SouPath := StringToOleStr(tmp);
  DataInit := CreateComObject(CLSID_DATALINKS) as IDataInitialize;        //创建接口
  DataInit.LoadStringFromStorage(SouPath, SouStr);
  s1 := WideCharToString(SouStr);
  s2 := Copy(SouStr, 0, Pos('Initial Catalog=',s1) - 1);
  s1 := Copy(SouStr, Pos('Initial Catalog=', s1) , Length(SouStr) - Pos('Initial Catalog=',s1) +1 );
  s1 := Copy(s1, Pos(';', s1), Length(s1)- Pos(';', s1) +1 );
  s2 := s2 + 'Initial Catalog=好记' + s1;
  DesStr := StringToOleStr(s2);
  if DeleteFile(tmp) then
    DataInit.WriteStringToStorage(SouPath, DesStr, 1);
  DataInit := nil;                        //释放
end;

转载于:https://www.cnblogs.com/tk-del/archive/2012/07/31/2616261.html