strPcopy(BaseDbName,A_BaseName);
gettemppath
setlength(tmpFile,MAX_PATH);
GetTempFileName(ExtractFilePath(application.ExeName),'',0,pchar(tmpFile));
==================================目录与文件=======================================
usesFileCtrl;
(1)判定路径是否存在
functionDirectoryExists(Name:string):Boolean;
(2)对一个全路径文件进行分割
ProcessPath(constEditText:string;varDrive:Char;varDirPart:string;varFilePart:string)
(3)创建一不存在的路径
functionForceDirectories(Dir:string):Boolean;
(4)选择一个目录
functionSelectDirectory(constCaption:string;constRoot:WideString;outDirectory:string):Boolean;
functionSelectDirectory(varDirectory:string;Options:TSelectDirOpts;HelpCtx:Longint):Boolean;
usesSysutils;
(1)functionExtractFileDrive(constFileName:string):string;//取得路径文件名中的驱动器名
functionExtractFileDir(constFileName:string):string;//取得路径文件名中的路径名(最后没有"")
functionExtractFilePath(constFileName:string):string;//取得路径文件名中的路径名(最后有"")
functionExtractFileExt(constFileName:string):string;//取得路径文件名中的扩展名(.XXX)
functionExtractFileName(constFileName:string):string;//取得路径文件名中的文件名(AAA.XXX)
(2)functionCreateDir(constDir:string):Boolean;
functionGetCurrentDir:string;
functionRemoveDir(constDir:string):Boolean;
functionSetCurrentDir(constDir:string):Boolean;
functionExpandFileName(constFileName:string):string;
(3)MKDirchDirGetDirRmDirDiskFreeDiskSizeFileSize
(4)fileGetAttrfileSetAttrfileAgefileGetDatefileSetDatefileDateToDateTimeDateTimeToFileDate
(5)fileSearchFindFirstfindNextfindClosefileExists
(6)copyFileMoveFileRenameRenameFileChangeFileExtDeleteFileEraseTruncate
(7)AddignFileResetReWriteAppendCloseFileFileOpenfileCreatefileClose
(8)SeekfilePosEofEolnFileSeekSeekEoln
(9)ReadReadLnWritewritelnFileReadfileWriteBlockReadBlockWrite
Flush(F)