var
SR : TSearchRec;
Znalezione : Integer;
begin
Znalezione := FindFirst('C:\Documents and Settings* * ', faDirectory, SR);
while Znalezione = 0 do
begin
MessageBox(Handle, PChar(SR.Name), 'Znalazłem', MB_OK);
Znalezione := FindNext(SR);
end;
Problem polega na tym, że zamiast wyświetlać mi nazwy tylko folderów to wyświetla mi jeszcze plik NowyDokumentTekstowy.txt, a przecież napisałem wyraźnie faDirectory. Co poradzicie??