Delphi中ExtractFilePath、ParamStr以及更多文件/目录操作

在Delphi中，我们可以使用ExtractFilePath函数来提取文件的路径信息，使用ParamStr函数来获取命令行参数。除此之外，Delphi还提供了其他一些文件和目录操作的函数和过程，如下所示：

ExtractFileName：提取文件的名称（包含扩展名）。

FileName := ExtractFileName('C:\MyFiles\myfile.txt'); // 输出：myfile.txt

ExtractFileExt：提取文件的扩展名。

FileExt := ExtractFileExt('C:\MyFiles\myfile.txt'); // 输出：.txt

ExtractFileDir：提取文件的父目录。

FileDir := ExtractFileDir('C:\MyFiles\myfile.txt'); // 输出：C:\MyFiles

FileExists：检查文件是否存在。

if FileExists('C:\MyFiles\myfile.txt') then
  ShowMessage('文件存在')
else
  ShowMessage('文件不存在');

DirectoryExists：检查目录是否存在。

if DirectoryExists('C:\MyFiles') then
  ShowMessage('目录存在')
else
  ShowMessage('目录不存在');

CreateDir：创建目录。

if not DirectoryExists('C:\MyFiles') then
  CreateDir('C:\MyFiles');

DeleteFile：删除文件。

DeleteFile('C:\MyFiles\myfile.txt');

RemoveDir：删除目录。

RemoveDir('C:\MyFiles');

RenameFile：重命名文件。

RenameFile('C:\MyFiles\oldfile.txt', 'C:\MyFiles\newfile.txt');

FindFirst / FindNext：查找目录中的文件。可以使用通配符进行模式匹配。

var
  SearchRec: TSearchRec;
begin
  if FindFirst('C:\MyFiles\*.txt', faAnyFile, SearchRec) = 0 then
  begin
    repeat
      // 处理文件
      ShowMessage(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

这些函数和过程提供了在Delphi中进行文件和目录操作的基本功能。您可以根据实际需求选择合适的函数来使用。