Galkov писал(а):
Надо менять указатель на структуру, а не копировать ееЧто-то я не совсем понял -- а где происходит восстановление указателя, или тут некоторый другой механизм?
Self.FindData := @FindData;
repeat if FindData.cFileName[0] <> '.' then
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)<>0 then begin
if _prop_Include > 0 then OutFiles(Dir,FindData.cFileName);
if _prop_SubDir = 0 then begin
Search(Dir + FindData.cFileName + '\');
Self.FindData := @FindData;
end