Delphi ExtractFilePath
<p><strong><span style="color: rgba(255, 0, 0, 1)">1、取路径</span></strong></p><p><strong><span style="color: rgba(255, 0, 0, 1)">1、取路径。</span></strong> </p>
<p><span style="color: rgba(255, 0, 0, 1)">1.1 ExtractFilePath之类的返回路径</span>。 原文链接（https://www.cnblogs.com/ZhouXiHong/archive/2007/01/30/634210.html）</p>
<p>ExtractFileDrive ：返回完整文件名中的驱动器，如"C:" <br>ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:\test\"<br>ExtractFileDir：返回完整文件名中的路径，最后不带“/”
,如"C:\test"<br>ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.doc"<br>ExtractFileExt
返回完整文件名中的文件扩展名（带.），如".doc"</p>
<div class="cnblogs_code">
<pre><span style="color: rgba(0, 0, 255, 1)">procedure</span><span style="color: rgba(0, 0, 0, 1)"> TForm1.btn1Click(Sender: TObject);
</span><span style="color: rgba(0, 0, 255, 1)">var</span><span style="color: rgba(0, 0, 0, 1)">
sFileName : </span><span style="color: rgba(0, 0, 255, 1)">string</span><span style="color: rgba(0, 0, 0, 1)">;
</span><span style="color: rgba(0, 0, 255, 1)">begin</span><span style="color: rgba(0, 0, 0, 1)">
sFileName :</span>= <span style="color: rgba(128, 0, 0, 1)">'</span><span style="color: rgba(128, 0, 0, 1)">F:\ZY\SVN\项目\1 软件\1 源代码_正式\LEM_Client\bin\SC_WRAMR.exe</span><span style="color: rgba(128, 0, 0, 1)">'</span><span style="color: rgba(0, 0, 0, 1)">;
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
</span><span style="color: rgba(0, 0, 255, 1)">end</span>;</pre>
</div>
<p style="text-align: left"><span style="color: rgba(255, 0, 0, 1)"> </span></p>
<p style="text-align: left"><span style="color: rgba(255, 0, 0, 1)">1.2.取应用程序路径</span>。 原文链接（https://www.cnblogs.com/vage/p/3543484.html）</p>
<p style="text-align: left">paramstr(0)：默认代表应用程序的绝对路径（如：d:\Project\bin\test.exe）</p>
<p style="text-align: left"> </p>
<p style="text-align: left">对于任何application来说，paramstr(0)都默认代表应用程序的绝对路径（如：d:\Project\bin\test.exe）</p>
<p style="text-align: left">那么paramstr(1), paramstr(2）？</p>
<p style="text-align: left">delphi帮助解释：从命令行中返回一个特别的参数，</p>
<p style="text-align: left">也就是在exe文件后面可以跟参数，paramstr 获取的就是exe文件后面跟参数。</p>
<p style="text-align: left">如有可执行文件project1.exe 在运行中输入 e:\project1.exe 123 456 789</p>
<p style="text-align: left"><span class="Apple-converted-space"> 那么paramstr(1)='123' paramstr(2)='456' paramstr(3)='789'。</span></p><br><br>
来源：https://www.cnblogs.com/hjdgz/p/11977671.html
頁:
[1]