有人发邮件说要修改方法,不小心把邮件删除了,不能回复,就在这写吧. 找到dbisamlb.pas 修改这个函数 function OSGetCurrentDirectory: string; var TempBuffer: array [0..MAX_PATH] of Char; begin { FillChar(TempBuffer,SizeOf(TempBuffer),#0); Windows.GetCurrentDirectory(SizeOf(TempBuffer),@TempBuffer); Result:=StrPas(@TempBuffer); } //用上面的方法当创建快捷方式的时候得到的是桌面路径 by feitian 2006-9-11 result:=ExtractFilepath(paramstr(0)); if result[length(result)]='\' then result:=copy(result,1,length(result)-1) end;