delphi 路径问题

最新推荐文章于 2019-04-14 14:23:23 发布
最新推荐文章于 2019-04-14 14:23:23 发布
阅读量799 收藏
点赞数
分类专栏： Delphi 文章标签： delphi 磁盘 扩展
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qyp1314/article/details/7283541
版权

用delphi路径问题

 

  1. ExtractFilePath  //路径后面带有 "/"  (不管是在磁盘根目录还是哪里)  
  2. ExtractFileName  //文件名  
  3. ExtractFileExt   //扩展名  

例子：

  1. ExtractFilePath(ParamStr(0));  // C:/  
  2. ExtractFileName(ParamStr(0));  // Project.exe  
  3. ExtractFileExt(ParamStr(0));   // .exe 

ExtractFilePath   和GetCurrentDirectory 区别

ExtractFilePath(Application.ExeName)
返回当前程序可执行文件所在目录的全路径



qyp1314
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi 路径设置
12-28
Delphi 路径设置,设置Delphi7的控件路径....
Delphi API 文件拖放获取路径
05-11
Delphi采用API实现文件拖放操作取得文件路径，拖动结束后松开鼠标，文件的路径信息立即显示在程序窗口中，看似简单的功能，但现在许多主流的软件甚至都在用，比如拖放打开文件等。 运行环境：Windows/Delphi7
获取文件路径(Delphi )----转贴
chinmusam的专栏
12-23 5298
ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/"ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test"ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.doc"ExtractFileExt 返回完整文件名
delphi 文件路径操作
04-14 306
System.IoUtils https://www.cnblogs.com/cause/p/3500100.html --------遍历文件---- procedure TForm1.Button4Click(Sender: TObject); var path: string; sFile: string; fp: TDirectory.TFilterPredicate; ...
Delphi中的各种路径
diligentcat的专栏
04-16 2640
在delphi的设置项中有各种路径，unit output dir, output dir,search path,libaray path,前两种比较简单，其实就是设置下dcu,及项目的输出位置，后两种就比较难区别了，其实，search path,是针对单个项目的，liarary path是通用的。(这从设置的位置就可以看出来，一个是项目的options,一个是tools的options)，不过
看delphi的源代码,发现比vc的源代码难看懂.
aibi9196的博客
11-18 127
看delphi的源代码,发现比vc的源代码难看懂. VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222100524199.html 不知道大家有没有对比过..有些无聊.. 那有DELPHI的源代码? 只有VCL的源码吧 jf 习惯问题，看惯了就好 就是说vcl的源代码..感觉挺难看懂, ...
Get-Syste-Dir.rar_delphi 获取路径_delphi 路径
09-21
在Delphi编程环境中，获取系统目录的详细路径是一项常见的任务，尤其在开发系统级应用程序时。这个名为"Get-Syste-Dir.rar_delphi 获取路径_delphi 路径"的压缩包文件，包含了用于实现这一功能的源代码示例。主要的...
delphi项目配置输出路径
05-05
在Delphi开发环境中，配置项目的输出路径是一项基本但至关重要的任务。这决定了编译或构建完成后，可执行文件、库、资源文件等将被放置的位置。以下是对如何配置Delphi项目输出路径的详细说明： 1. **启动Delphi ...
Delphi路径选择系统2005-10-31.rar_delphi 系统路径_gis_word delphi_路径选择
09-23
《Delphi实现的GIS路径优选系统与Word自动化打印技术详解》 在信息技术高速发展的今天，GIS（Geographic Information System，地理信息系统）已经成为处理地理数据、分析地理位置信息的重要工具。而Delphi作为一款...
open函数打开文件路径报错问题
AI-ON
02-06 1659
本文出自：http://blog.csdn.net/marsjhao/article/details/60333312 要以读文件的模式打开一个文件对象，使用Python内置的open()函数，传入文件名和标示符，标示符'r'表示读。 >>> f = open('D:/test.txt','r') 注意了，对初学python的同学而言，open()函数着实存在一个不大不小的坑，而且十
Delphi获取目录和子目录文件数量..rar
04-29
Delphi获取目录和子目录文件数量..rar
Delphi 在重命名文件或者文件夹时不能指定别的文件夹或者磁盘
xiongmao000738
09-26 1921
主要是源文件路径 与 目的文件路径不一样；  txtSource = "D:\temp\ucListView\txt1.txt"  txtDestination = "D:\temp\ucListView\txt2.txt" 例如上面这样子的就可以了。
delphi 目录操作System.IOUtils
08-29 432
引用单元 System.IOUtils 创建目录 if not TDirectory.Exists('c:\test1\tt')) then TDirectory.CreateDirectory('c:\test1\tt'); 判断文件c TFile.Exists('c:\test1\tt\t.txt') https://www.cnblogs.com/cause...
Delphi项目相对路径问题
敦格
10-30 4532
  你写了一个程序,如何把源码拷贝到其他机器的不同目录下,是否程序不能编译不能通过了,那么很有可能是路径出了问题,如何工程设置中都使用了相对路径,那么就方便多了,而且还会是项目管理更轻松,一幕了然.  在Project->Option->Directories/Conditionals页中,可以指定目录  (1)不要使用绝对路径,这样的话以后无论程序移动或者发布,都不会有需要重新修改路径的问题 
delphi 得到执行程序的当前所在完整路径
zisongjia的博客
04-14 9965
在Delphi SysUtils 单元中有 ExtractFileDir 与 ExtractFilePath两个类似的函数, 两个函数有以下的区别:  ExtractFilePath 传回值的最後一个字元是反斜杠“\”。 ShowMessage(ExtractFileDir(Application.Exename)); // 返回值为 c:\temp ShowMessage(Ex
Delphi 10.x 提示脚本错误的解决方法
weixin_30624825的博客
09-23 199
解决办法如下： 10.1版本修改方法： 打开注册表，在cmd中输入regedit,以管理员的身份运行， 找到HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\18.0\Known IDE Packages项， 找到$(BDS)\Bin\CommunityToolbar240.bpl这个子项目 将其内容由Embarcadero Commun...
delphi 拖拽文件夹获取路径
最新发布
09-17
在Delphi中，要实现拖拽文件夹并获取其路径，可以按照以下步骤进行操作： 1. 添加控件：在窗体上添加一个TListBox控件用于显示拖拽的文件夹路径。 2. 设置TListBox为可接受拖拽文件：在TForm的OnCreate事件中添加以下代码，将TListBox的DragMode属性设置为dmAutomatic，使其可以接受文件拖拽操作。 ``` procedure TForm1.FormCreate(Sender: TObject); begin ListBox1.DragMode := dmAutomatic; end; ``` 3. 处理拖拽事件：在TListBox的OnDragDrop事件中添加以下代码，用于处理拖拽文件夹的操作。 ``` procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); var i: Integer; DropFiles: TStrings; begin DropFiles := TStringList.Create; try if Source is TListBox then begin DropFiles.AddStrings(TListBox(Source).Items); for i := 0 to DropFiles.Count - 1 do ListBox1.Items.Add(DropFiles[i]); end; finally DropFiles.Free; end; end; ``` 4. 显示文件夹路径：在TListBox的OnDragOver事件中添加以下代码，用于在拖拽过程中显示文件夹路径。 ``` procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Source is TListBox; if Accept then begin if State = dsDragEnter then ListBox1.Items.Clear; ListBox1.Items.Add(GetDroppedFileName); end; end; ``` 5. 获取文件夹路径：最后，我们还需要添加一个函数GetDroppedFileName，用于获取文件夹路径。 ``` function TForm1.GetDroppedFileName: string; var DropHandle: THandle; FileCount, i: Integer; FileName: array[0..MAX_PATH] of Char; begin Result := ''; DropHandle := DragQueryFile(DragQueryFile(DragQueryFile(DragQueryFile(Handle, Cardinal(-1), nil, 0), 0, nil, 0), 0, @FileName[0], Length(FileName)), 0, nil, 0); if DropHandle <> Cardinal(-1) then begin FileCount := DragQueryFile(Handle, DragHandle, nil, 0); if FileCount > 0 then begin DragQueryFile(DragHandle, 0, @FileName[0], Length(FileName)); Result := FileName; end; end; DragFinish(DragHandle); end; ``` 以上就是在Delphi中使用拖拽操作获取文件夹路径的步骤和代码。希望能对您有所帮助！

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值