program RecursiveSearch;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
procedure GotoXY(AX, AY: Integer);
var
  point: COORD;
  hConsole: THandle;
begin
  point.X := 0;
  point.Y := 0;
  hConsole := GetStdHandle(STD_OUTPUT_HANDLE);
  SetConsoleCursorPosition(hConsole, point);
end;
 
procedure ClearScreen;
var
  maxSize, point: COORD;
  numberOfCharsWritten: Cardinal;
  hConsole: THandle;
begin
  hConsole := GetStdHandle(STD_OUTPUT_HANDLE);
  maxSize := GetLargestConsoleWindowSize(hConsole);
  point.X := 0;
  point.Y := 0;
  FillConsoleOutputCharacter(hConsole, ' ', maxSize.X*maxSize.Y, point,
    numberOfCharsWritten);
end;
 
procedure WriteToScreen(AFileName: string);
begin
  ClearScreen();
  GotoXY(0, 0);
  Writeln('Searching:');
  Writeln(AFileName);
end;
 
procedure FileSearch(AFileSpec: string);
var
  searchRecord: TSearchRec;
  path, fileName, fullName: string;
  isDirectory: Boolean;
begin
  path := ExtractFilePath(AFileSpec);
  fileName := ExtractFileName(AFileSpec);
 
  if (FindFirst(AFileSpec, faAnyFile, searchRecord) <> 0) then
    Exit;
 
  while FindNext(searchRecord) = 0 do
  begin
    if searchRecord.Name[1] <> '.' then
    begin
      fullName := path + LowerCase(searchRecord.Name);
 
      { Anda bisa menambahkan rutin untuk melakukan sesuatu di sini. Misalnya
        menampilkan file yang di search pada layar. }
      WriteToScreen(fullName);
 
      isDirectory := searchRecord.Attr and faDirectory > 0;
      if isDirectory then
        FileSearch(fullName+'\'+fileName);
    end;
  end;
  Sleep(10);
end;
 
begin
  FileSearch('c:\*.*');
  Writeln('Finish.');
  Readln;
end.