WriteWtextToFile本函式參照自TATSU版主的文章
function WriteWTextToFile(filename: string; ws: WideString):Boolean;
const
  WideBOM_LSB_First      = WideChar(#$FEFF);
var
  wf: WideString;
  f: TFileStream;
  i: integer;
begin
  Result := false;
  wf := WideBOM_LSB_First;
  f:= TFileStream.Create(filename, fmCreate);
  try
    f.Write(wf[1], 2);
    f.Write(PWideChar(ws)^, length(ws)*sizeof(WideChar));
    Result := true;
  finally
    f.Free;
  end;
end;    function IniToUdl(Ainifname,Audlfname:string):string;//ini To Udl
var
Tfs:TextFile;
Wstr:WideString;
Astr:String;
begin
try
 AssignFile(Tfs,Ainifname);
 ReSet(Tfs);
 While Not Eof(Tfs) do begin
  Readln(Tfs,Astr);
  Astr:=Astr #13 #10;
  if Trim(astr)='[oledb]' then
  Astr:=Astr 
 '; Everything after this line is an OLE DB initstring' #13 #10;
  //這一行文字不可加減 不然會造成udl無法開啟
  Wstr:=Wstr Widestring(Astr);
 end;
 CloseFile(tfs);
 WriteWTextToFile(Audlfname,Wstr);
 Result:=Audlfname;
except
 MessageDlg('資料庫連結檔案錯誤',mtWarning,[mbOK],0); 
end; 
end;