摘要： var s:String; FName: PChar; Buffer: array[0..MAX_PATH - 1] of Char;begin SetString(s,Buffer,SearchPath('D:\Work\WindDBF2\Bin\','Show2003','.dat',SizeOf(Buffer),Buffer,FName)); SetString(s,Buffer,Searc... 阅读全文