首页 > 其他分享 >Delphi ExtractFilePath

Delphi ExtractFilePath

时间:2024-08-05 09:52:19浏览次数:16  
标签:bin exe Delphi Memo1 paramstr sFileName Append ExtractFilePath

1、取路径

1、取路径。 

1.1  ExtractFilePath之类的返回路径。 原文链接(https://www.cnblogs.com/ZhouXiHong/archive/2007/01/30/634210.html

ExtractFileDrive :返回完整文件名中的驱动器,如"C:"
ExtractFilePath:返回完整文件名中的路径,最后带“/”,如"C:\test\"
ExtractFileDir:返回完整文件名中的路径,最后不带“/” ,如"C:\test"
ExtractFileName:返回完整文件名中的文件名称 (带扩展名),如"mytest.doc"
ExtractFileExt 返回完整文件名中的文件扩展名(带.),如".doc"

复制代码
procedure TForm1.btn1Click(Sender: TObject);
var
  sFileName : string;
begin
  sFileName := 'F:\ZY\SVN\项目\1 软件\1 源代码_正式\LEM_Client\bin\SC_WRAMR.exe';
  Memo1.Lines.Append(ExtractFileDrive(sFileName));  //F:
  Memo1.Lines.Append(extractfilePath(sFileName));   //F:\ZY\SVN\项目\1 软件\1 源代码_正式\LEM_Client\bin\
  Memo1.Lines.Append(ExtractFileDir(sFileName));    //F:\ZY\SVN\项目\1 软件\1 源代码_正式\LEM_Client\bin
  Memo1.Lines.Append(ExtractFileName(sFileName));   //SC_WRAMR.exe
  Memo1.Lines.Append(ExtractFileExt(sFileName));   //.exe
end;
复制代码

 

1.2.取应用程序路径。  原文链接(https://www.cnblogs.com/vage/p/3543484.html

paramstr(0):默认代表应用程序的绝对路径(如:d:\Project\bin\test.exe)

 

对于任何application来说,paramstr(0)都默认代表应用程序的绝对路径(如:d:\Project\bin\test.exe)

那么paramstr(1), paramstr(2)?

delphi帮助解释:从命令行中返回一个特别的参数,

也就是在exe文件后面可以跟参数,paramstr 获取的就是exe文件后面跟参数。

如有可执行文件project1.exe 在运行中输入   e:\project1.exe 123 456 789

那么paramstr(1)='123' paramstr(2)='456' paramstr(3)='789'。

标签:bin,exe,Delphi,Memo1,paramstr,sFileName,Append,ExtractFilePath
From: https://www.cnblogs.com/ynmsnc/p/18342647

相关文章

  • Delphi 线程
    不是原创,只是看到好的内容复制了保存下来,留着学习。 CreadteThred参考,同步参考,WaitForSingleObject参考,互斥参考, 一、在Delphi中使用多线程有两种方法:调用API、使用TThread类;使用API的代码更简单.1、调用API:CreateThread()functionCreateThread( lpThr......
  • DelphiJNI实际调试
    1:下载DelphiJNI:下载地址https://github.com/aleroot/DelphiJNI,版本比较老,没有找到其他,就用这个吧,如朋友有较新的pas文件,请留言下2:下载jdk,这里下载JDK,这里使用javase-jkd18,也不知道这个版本要不要收费,这里学习用暂时不关新这个。3:编写调用class的代码,DelphiJNI没有demo,看代码云......
  • delphi 里的 枚举
    初始值随机若定义一个枚举,他初始化是随机的,并不是第一个元素如:所以若一个类包含了枚举类型,一定要给其赋值,否则就会乱套;枚举不能为nil枚举的零值是随机数字,值类型,不是对象类型;定义时指定数字值//在这个例子中,`cRed`的值是1,`cGreen`的值是2,`cBlue`的值是4。注意,这些......
  • delphi调用Java类
    1、jdk的安装:https://www.cnblogs.com/ljk2008/p/18324820。2、jvm.dll:如果提示找不到JVM.dll需要在classpath、path中分别添加jvm.dll的路径。3、用到三方库:https://github.com/aleroot/DelphiJNI.git。4、JAVA类(CLASS、JAR)要放置在对应的文件夹内,如:packagecom.com1.com2;对......
  • delphi android发送与接收广播
    在Delphi中,可以使用TLocalBroadcastManager类来发送和接收广播。以下是一个示例:发送广播:```delphiuses Androidapi.JNI.GraphicsContentViewText,Androidapi.Helpers,Androidapi.JNI.JavaTypes,Androidapi.JNI.LocalBroadcastManager;procedureSendBroadcast(constAAction:......
  • Delphi CnPack CnRs232 以16进制 串口发送消息 WriteCommData
    使用Delphi组件CnPack里面的CnRs232,以十六进制对串口发送消息 WriteCommData找了好久,尝试了N个方法,不想安装MSComm,SPComm在新版Delphi有点怪怪的,还是用cnRs232直接上代码:procedure TForm1.Button1Click(Sender: TObject);var  DataArray:array of byte; Wl......
  • Delphi Variant 判断是否为空
    VarIsEmpty和VarIsNull在Delphi中都是用于判断Variant类型变量的函数,但它们之间有着明显的区别:VarIsEmptyVarIsEmpty函数用于判断一个Variant变量是否未被初始化或显式地被设置为空状态。当一个Variant变量被声明后尚未被赋予任何值,或者通过某种方式被设置为表示空......
  • ImageEn v10.2.0 for Delphi 5-12 Crack
    ImageEnv10.2.0forDelphi5-12CrackKeyFeaturesofImageEn:Extensivecomponentsuiteforimageediting,display,andanalysisCompatiblewithDelphiandC++Builder5-7,2005-2010,XE-XE8,10,11,12,and.NET2.0ornewerSup......
  • delphi7怎么安装raize
            RaizeComponents是一个强大的组件库,用于为Delphi开发者创建高级界面。安装RaizeComponents的步骤通常如下:        1.下载RaizeComponents库。你可以从官方网站或其他可信来源获取最新版本的RaizeComponents。解压下载的文件到一个目录。   ......
  • Delphi皮肤控件AlphaControls去NAG提示
    国外知名皮肤控件AlphaControls,一些好看的皮肤会弹出对话框....用查找句柄的方法去发消息关闭对话框,都不得行...,以为是屏敝了消息,自定义消息也失效。后面用修改内存地址指令的方法,就可以有效的去掉NAG提示functionFindPattern(ProcessHandle:THandle;StartAddr,EndAddr:D......