알짜게시판

보통 Delphi 코드에서 폴더를 통째로 삭제할 때는 TDirectory.Delete(FDataDir, True)를 많이 사용한다. 이 방식은 안전하게 동작하지만, 내부적으로 모든 파일과 하위 폴더를 재귀적으로 확인하며 하나씩 삭제하기 때문에 파일 개수가 많을수록 시간이 오래 걸린다. 특히 프로그램 종료 직전에 캐시 폴더를 지울 때, 이 과정 때문에 종료가 늦게 끝나는 현상이 발생한다.

이 문제를 해결하기 위해 코드를 다음과 같이 바꿔봤다.

WinExec(PAnsiChar(AnsiString('cmd /c rd /s /q "' + FDataDir + '"')), SW_HIDE);

이 방식은 윈도우 명령어 rd /s /q를 호출하여 폴더 전체를 지우는 방법이다. 프로그램에서 직접 파일을 하나하나 처리하지 않고, 시스템이 최적화된 방식으로 삭제를 진행한다. 그 결과 삭제 속도가 눈에 띄게 빨라지고, 종료 과정에서 사용자가 기다리는 시간이 거의 사라진다.

추가로 좋은 점은 프로그램이 종료되더라도 cmd 프로세스가 백그라운드에서 계속 실행되어 삭제 작업을 이어간다는 점이다. 즉, 사용자는 프로그램이 곧바로 닫히는 것을 체감하면서 실제 파일 삭제는 알아서 진행된다.

정리하자면 TDirectory.Delete는 안전하고 표준적인 방법이지만, 캐시처럼 중요하지 않은 파일을 종료 직전에 대량으로 지울 때는 rd /s /q 방식이 훨씬 빠르고 사용자 경험이 좋다. 특히 파일 수가 많은 경우라면 두 방식의 차이가 크게 느껴질 것이다.