Question

delphi获取指定路径下的exe文件名称

found:=FindFirst(sSetUpFolderUNC_PATH +'*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name = '.exe') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory)
then
if sFileList = ''then
begin
sFileList :=SearchRec.Name;
end
else
begin
sFileList := sFileList + ',' + SearchRec.Name;
end;
found:=FindNext(SearchRec);
end;
system.SysUtils.FindClose(SearchRec);
我这样取不到任何名字，有没有大佬指点哪里错了

Answer 1

1.第一个 if 里 把 SearchRec.Name=".exe"去掉
2.SearchRec.Name指的就是文件和文件夹全名，你的文件夹里面根本没有全名为.exe的文件，当然没有结果
3.如果你想专门找EXE文件，应该在第一行的"*.*"改成"*.exe"