Delphi 获取当前目录

最新推荐文章于 2023-02-22 11:40:42 发布
原创 最新推荐文章于 2023-02-22 11:40:42 发布 · 7.6k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #磁盘 #扩展 #c

本文介绍了使用Delphi内置函数进行文件路径操作的方法，包括提取文件路径、文件名及扩展名等实用技巧。

用delphi自带的几个函数

 

例子：

 

Delphi获取程序(系统)当前的运行目录..rar
04-29
Delphi获取程序(系统)当前的运行目录..rar``
Delphi获取程序(系统)当前的运行目录
05-02
Delphi获取程序(系统)当前的运行目录，Delphi获取目录的例子，本例子主要获取EXE运行文件所在的目录，当前的运行路径，程序相对简单，对Delphi初学者友好。 运行环境：Windows/Delphi7
delphi 获得当前目录 与 获得主程序 目录
myfile的专栏
09-09 2077
ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录 ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录 ShowMessage(GetCurrentDir + '\'); //获取当前目录
2011.02.11
波波的专栏
02-11 382
ExtractFilePath()功能：返回完整文件名中的路径paramstr[0]功能: 返回可执行文件的路径paramstr 作用是把接收到的命令行参数分离出来比如命令行：c:/temp/MyApp.exe /test /save 那么： paramstr[0] = 'c:/temp/MyApp.exe' paramstr[1] = '/test' paramstr[2] = '/save'
Delphi获取当前磁盘信息和磁盘空间信息
12-14
在Delphi编程环境中，获取当前磁盘信息和磁盘空间...总之，掌握使用Delphi获取磁盘信息和磁盘空间的技术，不仅有助于开发系统工具，也能提升对操作系统底层原理的理解，这对于任何 Delphi 开发者来说都是宝贵的技能。
delphi 获取当前时间13位时间戳
03-06
delphi获取当前系统时间的13位时间戳。与java获取时间戳对比 ，是一样的结果
Delphi获取打印机列表信息
11-28
总结，Delphi获取打印机列表和详细信息主要涉及Windows API的`EnumPrinters`函数以及VCL的`TPrinter`类。通过这些工具，开发者可以轻松地获取系统中的打印机信息、控制打印过程并允许用户自定义打印设置。在实际应用...
Delphi:获取系统目录的函数
HzqGhost's Blog
11-06 1667
use windowsfunction GetSysDir:String;var p:Pchar;beginGetMem(P,255);GetSystemDirectory(p,254);Result := p;Freemem(p); end; 
delphi遍历当前目录
08-16
delphi遍历当前目录 可遍 历文件夹 所有文件 特定类型文件
Delphi获取目录和子目录文件数量..rar
04-29
Delphi获取目录和子目录文件数量..rar
delphi 文件夹内所有文件获取
04-25
两个函数，分别可以获取文件夹内的所有文件，还可以获取子文件夹内的所有文件
Delphi利用系统环境变量获取常用系统目录
08-19
delphi取系统环境变量 delphi取系统环境变量 delphi取系统环境变量
Delphi 2种方法获取常用的Windows目录路径.rar
07-10
Delphi获取Windows常用的目录路径，2种方法不同，但实现的功能一样，都是获取常用的Windows目录路径，比如获取桌面路径、控制面板路径、系统字体文件夹路径、发送到、开始菜单路径、开机启动目录路径、收藏夹目录、系统缓存目录、临时目录等，获取这些路径在我们编写与Windows相关的程序时非常有用。
delphi 获取当前路径
akaklk的博客
02-22 3473
Delphi获取路径
OpenDialog控件
u010359641的专栏
09-29 1830
ExpandFileName() 返回文件的全路径(含驱动器、路径)  ExtractFileExt() 从文件名中抽取扩展名  ExtractFileName() 从文件名中抽取不含路径的文件名  ExtractFilePath() 从文件名中抽取路径名  ExtractFileDir() 从文件名中抽取目录名  ExtractFileDrive() 从文件名中抽取驱动器名  Exp
DELPHI如何获取某目录下的所有文件名?
chinajobs的专栏
10-13 4755
//===================================================================== // 函数名称: FindPathFiles // 功能描述: 找指定目录下的文件 // 参    数:  APath   : 路径名称 //            APropty : 属性名称(*.* | *.txt) //          
delphi 得到执行程序的当前所在完整路径
热门推荐
zisongjia的博客
04-14 1万+
在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别:  ExtractFilePath 传回值的最後一个字元是反斜杠“\”。 ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:\temp ShowMessage(Ex
getcurrentdir delphi获取当前应用程序目录
hutao1101175783的专栏
08-14 412
getcurrentdir 获取当前应用程序目录
delphi 引用当前目录
最新发布
07-13
<think>在Delphi中，引用当前目录通常指的是获取应用程序正在运行的目录。这可以通过几种方式实现，最常用的是使用`ExtractFilePath(ParamStr(0))`或`GetCurrentDir`函数，但需要注意它们之间的区别。 ### 方法1：使用 `ExtractFilePath(ParamStr(0))` - `ParamStr(0)` 返回当前可执行文件的完整路径（包括文件名）。 - `ExtractFilePath` 从这个路径中提取目录部分（不包括文件名）。 - 这是最可靠的方法，因为它返回的是应用程序所在的目录，即使当前工作目录被改变。 示例代码： ```delphi uses SysUtils; var CurrentDir: string; begin CurrentDir := ExtractFilePath(ParamStr(0)); ShowMessage(CurrentDir); end; ``` ### 方法2：使用 `GetCurrentDir` - `GetCurrentDir` 返回当前工作目录，这可能会被程序运行期间改变（例如，通过`SetCurrentDir`或文件对话框操作）。 - 如果程序启动后没有改变过目录，那么它可能和应用程序所在目录相同。 示例代码： ```delphi uses SysUtils; var CurrentDir: string; begin CurrentDir := GetCurrentDir; ShowMessage(CurrentDir); end; ``` ### 方法3：使用 `IncludeTrailingPathDelimiter` - 如果需要确保路径以路径分隔符（在Windows上是反斜杠`\`）结尾，可以使用`IncludeTrailingPathDelimiter`函数。 示例： ```delphi uses SysUtils, FileCtrl; var AppDir: string; begin AppDir := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); end; ``` ### 注意事项 - 在Windows上，路径分隔符是反斜杠（`\`），但Delphi也支持使用斜杠（`/`），不过为了兼容性，建议使用`IncludeTrailingPathDelimiter`来添加正确的分隔符。 - 如果需要操作文件，建议使用`ExtractFilePath(ParamStr(0))`来获取应用程序所在目录，因为工作目录可能会被改变。 §§相关问题§§ 1. Delphi中如何获取应用程序的完整路径（包括可执行文件名）？ 2. 在Delphi中如何改变当前工作目录？ 3. 如何在不同操作系统（如Windows和Linux）下正确获取当前目录？ 4. Delphi中如何组合路径和文件名以避免路径分隔符错误？ 5. 使用`ExtractFilePath`和`ExtractFileDir`有什么区别？</think>### Delphi 中引用当前目录的方法 在 Delphi 中获取或引用当前工作目录有以下几种常用方法： #### 1. **使用 `GetCurrentDir` 函数** ```delphi uses SysUtils; var CurrentDir: string; begin CurrentDir := GetCurrentDir; // 获取当前工作目录 ShowMessage('当前目录: ' + CurrentDir); end; ``` #### 2. **使用 `ParamStr(0)` 获取可执行文件所在目录** ```delphi uses SysUtils; var ExeDir: string; begin ExeDir := ExtractFileDir(ParamStr(0)); // 获取 EXE 文件所在目录 ShowMessage('程序位置: ' + ExeDir); end; ``` #### 3. **设置当前目录** ```delphi uses SysUtils; begin // 设置当前工作目录 SetCurrentDir('C:\NewDirectory'); // 验证是否设置成功 if GetCurrentDir = 'C:\NewDirectory' then ShowMessage('目录已变更'); end; ``` #### 4. **路径操作函数** ```delphi uses SysUtils, IOUtils; begin // 组合路径 ShowMessage(TPath.Combine(GetCurrentDir, 'data.txt')); // 检查路径是否存在 if DirectoryExists(GetCurrentDir) then ShowMessage('目录有效'); end; ``` #### 注意事项： 1. `GetCurrentDir` 返回进程的**当前工作目录**（可能被程序改变） 2. `ExtractFileDir(ParamStr(0))` 返回**可执行文件所在目录**（通常更稳定） 3. 在文件操作中推荐使用完整路径，避免相对路径歧义 4. 跨平台开发需使用 `System.IOUtils.TPath` 处理路径分隔符差异
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值