strPcopy(BaseDbName,A_BaseName);
gettemppath
setlength(tmpFile,MAX_PATH);
GetTempFileName(ExtractFilePath(application.ExeName),'',0,pchar(tmpFile));
================================== 目录与文件 =======================================
uses FileCtrl;
(1) 判断路径是否存在
function DirectoryExists(Name: string): Boolean;
(2)对一个全路径文件进行分割
ProcessPath (const EditText:string; var Drive:Char; var DirPart:string; var FilePart:string)
(3)创建一不存在的路径
function ForceDirectories(Dir: s...[ 查看全文 ]