delphi FindFirst

Delphi的FindFirst函数用于查找指定目录下的第一个匹配文件或目录。它的语法如下：

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

其中，Path表示要查找的目录或文件的路径；Attr表示要查找的文件或目录的属性，可以是以下常量之一：

- faReadOnly：只读文件；
- faHidden：隐藏文件或目录；
- faSysFile：系统文件；
- faVolumeID：卷标；
- faDirectory：目录；
- faArchive：存档文件。

F是一个TSearchRec类型的变量，用于返回查找结果的信息。返回值为整数型，表示操作是否成功。

示例代码：

var
  SearchRec: TSearchRec;
  Path: string;
begin
  Path := 'C:\Windows\*.exe';
  if FindFirst(Path, faAnyFile, SearchRec) = 0 then
  begin
    repeat
      ShowMessage(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end
  else
    ShowMessage('No matching files found');
end;

以上代码查找C:\Windows目录下的所有exe文件，并将它们的文件名依次弹出提示框显示。如果没有找到匹配的文件，则显示"No matching files found"。需要注意的是，在使用FindFirst函数后，需要使用FindClose函数关闭搜索句柄，否则可能会出现资源泄漏等问题。