var
TempSR: TSearchRec;
begin
if FindFirst('C:\TEMP\*.*', faArchive, TempSR) = 0 then
   repeat

  If (TempSR.NAME = '.') OR (TempSR.NAME = '..') Then
      Begin
      end
   Else
      ListBox1.Items.Add(TempSR.Name);

   Until (FindNext(TempSR)<>0);
   FindClose(TempSR);

end;

<참고사항>
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

Constant                        Description
faReadOnly        Read-only files
faHidden                        Hidden files
faSysFile                        System files
faVolumeID        Volume ID files
faDirectory                        Directory files
faArchive                        Archive files
faAnyFile                        Any file