修改UDL文件

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;