program Project1; {$APPTYPE CONSOLE} uses SysUtils, shellapi, windows; var sr: TSearchRec; attr: Integer; handle:hwnd; mpath,spath:string; begin try attr := 0; attr := faAnyFile; mpath:='c:\temp\'; \\путь до родной директории spath:='c:\123.bat'; \\путь до батника if DirectoryExists(mpath) then if FindFirst(IncludeTrailingBackslash(mpath) + '*.*', attr, SR) = 0 then begin repeat if (sr.Attr = faDirectory) and (sr.Name[Length(sr.Name)] <> '.')and(sr.Name[9]='-')and \\ищем (sr.Name[14]='-')and(sr.Name[19]='-')and(sr.Name[24]='-') then \\ злую директорию ShellExecute(handle,'open',spath,pchar(mpath+sr.name),nil,0); \\вызываем заготовленный батник удаления until (FindNext(sr) <> 0); end except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. текст батника малость изменился)) будем ему передавать rd /s /q %1 p.s. Щас сижу и думаю а нафига теперь батник )) можно же тупо в shellexecute всю команду передать) Всё из-за тебя Хотабыч)) зациклился я на батнике))) P.P.S. логика поиска по твоим словам тире всегда стоят на своих позициях) сырец вот он меняй как хочешь) и не кидайтесь тапками как смог так и написал)))