[ferget]

Удалять *.exe файл, если есть одноименная скрытая папка »

сначала находите имена всех exe без расширения

Код:

TSearchRec sear;
AnsiString Path; 
AnsiString  Extension;
AnsiString  FileNoExt;  

    if(FindFirst(Path + "*.exe", faAnyFile, sear) == 0)
    {
        do
        { 
            Extension = ExtractFileExt(sear.Name);
            FileNoExt = Copy(sear.Name, 1, length(sear.Name) - length(Extension));
            ....................................
        }  
        while(FindNext(sear) == 0);
    }
 
    FindClose(sear);

затем находите папки faDirectory
сравниваете и удаляете не нужные

как-то так