procedure TForm1.Button1Click(Sender: TObject); var DirInfo: TSearchRec; r : Integer; begin r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo); while r = 0 do begin if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar('C:Downloadtest' + DirInfo.Name)) = false then ShowMessage('파일을 지울 수 없음 : C:Downloadtest' + DirInfo.Name);
r := FindNext(DirInfo); end;
SysUtils.FindClose(DirInfo);
if RemoveDirectory('C:DownloadTest') = false then ShowMessage('디렉토리를 지울 수 없음 : C:Downloadtest'); end;