Проблема удаления папок и файлов

[NetSpace]

Естьу меня одна маленькая программа, она удаляет рядом с собой все папки и файлы, но когда находится в этой же папке. А если этот же код встроить в другую программу, т.е. удаление происходит не рядом с собой, а в другой папке, то удаляются не все объекты. Я уже забодался с этим бороться.
Вот код на API:

program API_Delete; 
uses Windows,Messages,SysUtils,ShellAPI;
{$R dialog.res}

procedure Del;
var SR:TSearchRec;
    SHFP:SHFILEOPSTRUCT;
    Put:string;
begin
   Put:='H:\1\';//это путь к папке, которую хотим очистить
   if FindFirst(Put+'*.*',faHidden or faSysFile or faVolumeID or faDirectory,SR)=0 then
   repeat
    if(SR.Name<>'.')and(SR.Name<>'..')and(SR.Size<>43520)then//чтоб не удалил сам себя
    begin
       ZeroMemory(@SHFP,SizeOf(SHFP));
       with SHFP do
       begin
          wFunc:=FO_DELETE;
          pFrom:=PChar(Put+SR.Name);
          fFlags:=FOF_NOCONFIRMATION;
       end;
       SHFileOperation(SHFP);
    end;
   until FindNext(SR)<>0;
   FindClose(SR);
end;

//----- функция обработки сообщений -----------------------------------
function DlgProc(wnd:HWND;msg:integer;wparam:WPARAM;lparam:LPARAM):LRESULT;stdcall;
begin
   case msg of
   //----- готовим окно к созданию ---------------------------------------
   HCBT_CREATEWND:ShowWindow(Wnd,sw_Hide);//но оно будет скрытым
   //----- при запуске формы ---------------------------------------------
   WM_InitDialog:
   begin
      if(FileExists('1.txt')=False)then Del;//ограничитель - если есть этот файл, то ничего не удалит
      PostQuitMessage(0);
      Result:=0;
      Exit;
   end;
   //----- выход ---------------------------------------------------------
   WM_Destroy,WM_Close:
   begin
      PostQuitMessage(0);
      Result:=0;
      Exit;
   end;
   //-----------------------------------------------------------------------
   end;
   Result:=0;
end;

begin
   //----- создание главного окна программы -----------------------------
   DialogBox(hInstance,'MAIN_WINDOW',0,@DlgProc);
end.

И вот что тут не так? Кто скажет точно, почему в другой директории не хочет удалять, а рядом с собой стирает всё нафиг?

[raxp]

попробуйте поиграться с аттрибутами файлов из другой директории, возможно там для чтения или архивный... а вы им поменяйте на:

SetFileAttributes(filename,faVolumeID);
    deletefile(filename);

кроме того, где у вас проверка что файл не занят? если он занят, то нужно еще и принудительно очищать их handle в памяти, как это делает unlocker.

[NetSpace]

Атрибуты я все снимаю функцией windows.SetFileAttributes(PChar(Put +SR.Name),0); - это работает точно, проверял не раз.
А вот папки и файлы специально копировал в отдельную папку и пытался их удалить. Файлы сметает сразу, а вот некоторые папки... Некоторые непустые удаляет, а некоторые (тоже непустые) не хочет... в чём между ними различие - никак не понять?!!! Обычные папки: в один 6 файлов простых и в других тоже всякого мусора навалено для проверки удаления.

И еще - там архив есть. В нём программа, которая удалит всё, что рядом с ней! И с атрибутами играть не надо. А если её заставить удалять в соседней папке, то несколько файлов удалит, а по поводу других выдаст ошибку, типа "ошибка удаления файла и папки", будто что-то её держит.