Очистка корзины, полная!

[Replicant]

Доброе время суток!
Стоит задача программно очистить корзину на ПК, сам ПК юзается большим количеством пользователей, которые беспрерывно гадят в корзину.
Для очистки оной использую функцию SHEmptyRecycleBin

function SHEmptyRecycleBin(hwnd: HWND; pszRootPath: PChar;
   dwFlags: DWORD): HRESULT; stdcall;
   external 'shell32.dll' name 'SHEmptyRecycleBinA';


SHEmptyRecycleBin(Handle, Nil, SHERB_NOCONFIRMATION);

Проблема в том, что данная функция чистит корзину только для активного пользователя, или для пользователя, для которого запущена.

Пробовал чистить непосредственно C:\$Recycle.Bin

Function MyRemoveDir(sDir : String) : Boolean; 
var 
         iIndex    : Integer;
         Count     : Integer;
         SearchRec : TSearchRec; 
         sFileName : String; 
begin 
         Result := False; 
         sDir   := sDir + '\*.*'; 
         iIndex := FindFirst(sDir, faAnyFile, SearchRec);
         Count  := 0;
         while iIndex = 0 do begin 
               sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
               if SearchRec.Attr = faDirectory then begin 
                  if (SearchRec.Name <> '' )  and 
                     (SearchRec.Name <> '.')  and 
                     (SearchRec.Name <> '..') then
                      begin
                        MyRemoveDir(sFileName);
                      end;
               end else begin
                  if SearchRec.Attr <> faArchive then
                     FileSetAttr(sFileName, faArchive);
                  if NOT DeleteFile(sFileName) then
                     begin
                      Form1.RichEdit1.SelAttributes.Color:=clRed;
                      Form1.RichEdit1.Lines.Add('Can NOT delete dir: ' + sFileName);
                     end
                     else
                     begin
                       Inc(Count);
                       Form1.RichEdit1.SelAttributes.Color:=clBlue;
                       Form1.RichEdit1.Lines.Add('Óäàëåíî: ' + sFileName);
                     end;
               end;
               iIndex := FindNext(SearchRec);
         end; 

         FindClose(SearchRec);
         RemoveDir(ExtractFileDir(sDir));
       
         Result := True;
         FullCount:=FullCount+Count;
         //Form1.RichEdit1.Lines.Add('Óäàëåíî: ' + IntToStr(Count)+ ' ôàéëîâ');
end;

MyRemoveDir('C:\$Recycle.Bin');

Но и так не получилось, так вообще ничего не чистит, при том что другие папки очищает нормально.

[FaTaL]

Ну так у каждого пользователя своя корзина. Нет никакой общей корзины.

[Alex11223]

rd /s c:\$Recycle.Bin

все удаляет для всех, видимо вы как-то не так удаляете.
Естественно запускать надо с правами админа/UAC.

[beegl]

я таким образом очистил + много не нужных процессов

[Replicant]

Сообщение от FaTaL

Ну так у каждого пользователя своя корзина. Нет никакой общей корзины.

Это понятно, речь как раз и идет об очистке корзиН всех пользователей.

Сообщение от Alex11223

rd /s c:\$Recycle.Bin

все удаляет для всех, видимо вы как-то не так удаляете.
Естественно запускать надо с правами админа/UAC.

Задача стоит произвести очистку средствами Delphi, а не через cmd консоль, причем я не уверен, что этот метод работает для всех корзин, а не только для текущего пользователя, проверю.
Фишка в том, что при запуске от админа предложенных мною функций, очистка идет только для корзины админа, в этом то и проблема, это и надо побороть, требуется очистка ВСЕХ корзин одновременно.

Сообщение от beegl

я таким образом очистил + много не нужных процессов

Спасибо, но это тот же SHEmptyRecycleBin от WinAPI который я использую, только вы описали функцию с проверками на ошибки + тасккил. Обратите внимание, она чистит корзину только для пользователя от которого запущена. Скажу больше, эта функция используется в таких программах как CCliner, RegOrganizer и тд, я и сам не знал об этом, пока меня носом не тыкнули в этот косяк.
Может есть у кого мысли или пути решения проблемы, спасибо?

[Alex11223]

Ну у меня rd удалило корзины всех пользователей.

Про админа речь о том, что просто не даст это сделать без прав админа (или UAC если включен).

[Replicant]

Сообщение от Alex11223

Ну у меня rd удалило корзины всех пользователей.

Про админа речь о том, что просто не даст это сделать без прав админа (или UAC если включен).

По факту rd подходит для удаления обычных папок, вот что происходит если указан путь к корзине (скрин):

Но, вернемся к Delphi, мой вопрос касается именно его, а не cmd команд. В принципе и консоль можно было бы вызывать программно, но, как видите это не работает, корзина пользователя, под которым запускал, не была очищена.

Заметил еще одну особенность! Если запускать очистку через rd от локального админа, то пытается чистить только локальные учетки и никак не трогает учетки доменные, их пытается чистить только если запускать от доменнога админа, но опять же безуспешно.

[Alex11223]

cmd с правами админа/UAC открыли? (в меню по ПКМ)

[Replicant]

Сообщение от Alex11223

cmd с правами админа/UAC открыли? (в меню по ПКМ)

Именно так.

[Alex11223]

Тогда странно, у меня работало на вин 7 (с обычными локальными пользователями)