Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:11:17 delphi常用的几个路径函数
GetCurrentDir 函数获取当前目录的绝对路径。函数原型如下:function GetCurrentDir: string;例如用下面的代码获取当前目录的绝对路径并显示:ShowMessage(GetCurrentDir);GetDir 过程获取指定驱动器中的当前目录。过程原型如下:procedure GetDir(D: Byte; var S: string);参数D 为指定的驱动器。当D 的数值为0 时,表示默认的驱动器;数值为1 时,表示A 驱动器;数值为3 时,表示C 驱动器,依次类推。如果指定的驱动器不存在,则参数S 的数值设置为当前的目录。可以通过下面的程序进行测试。...vars:string;i:Integer;beginfor i:=0 to 15 dobeginGetDir(I,s); { 0 = Current drive } //获取指定驱动器中的当前路径MessageDlg(’当前驱动器目录是:’ + s,mtInformation,[mbOk],0);end;end;MkDir 过程新建一个目录。过程原型如下:procedure MkDir(S: string);MkDir 过程的用法与CreateDir 过程的用法一样,都只能在已经存在的路径下创建一层目录,MkDir过程在不存在的路径下创建目录时会提示错误,而CreateDir 过程则不提示。RemoveDir 函数删除一个存在的目录,目录必须为空(即目录里面不能包含目录或文件)。函数原型如下:function RemoveDir(const Dir: string): Boolean;如果删除目录成功,则返回True;否则,返回False。RmDir 过程删除一个存在的目录,目录必须为空。过程原型如下:procedure RmDir(S: string);如果要删除的目录不为空,或没有此目录,RmDir 过程会提示错误,而RemoveDir 函数则不提示错误。
赞