Die dortigen Lösungen sind alle zu ineffizient.
Mittlerweile funktionierts wohl wieder, neuer Aufruf, keine leeren Variablen mehr
Delphi-Quellcode:
var
lhFoundFile: THandle;
lfdStruct: TWin32FindData;
Index: Integer;
begin
lhFoundFile := THandle(
Winapi.Windows.FindFirstFileEx(PWideChar(ParentFolder + Mask), _FINDEX_INFO_LEVELS.FindExInfoBasic, @lfdStruct, _FINDEX_SEARCH_OPS.FindExSearchNameMatch,
nil, 0));
if (lhFoundFile <> INVALID_HANDLE_VALUE)
then
begin