На Windows XP (на 7-ке вроде работало, но сейчас проверить не могу) функция SHFileOperation не хочет удалять каталоги (пустые, если есть файлы пока не проверял), файлы удаляет. Delphi XE2
Функция:
| Код |
Function DeleteToRecycleBin(WindowHandle: HWND; Filename: string; Confirm: Boolean): Boolean;
Var
SH: TSHFILEOPSTRUCT ;
EC: Integer ;
Begin
FillChar(SH, SizeOf(SH), 0) ;
With SH do
Begin
Wnd := WindowHandle ;
wFunc := FO_DELETE ;
pFrom := PChar(Filename+#0#0) ;
fFlags := FOF_SILENT or FOF_NOERRORUI ;
If GlobalRecycleBin
Then
fFlags := fFlags or FOF_ALLOWUNDO ;
If not Confirm
Then
fFlags := fFlags or FOF_NOCONFIRMATION
End ;
EC := SHFileOperation(SH) ;
Result := EC = 0 ;
WriteToLog(llDebug,'Delete '+Filename+IfThen(GlobalRecycleBin,' to recycle bin','')+' with result '+IntToStr(EC)+'.') ;
If EC = 1026
Then
Begin
WriteToLog(llDebug,'Error '+IntToStr(EC)+' try Delete without Trailing Path Delimiter.') ;
Result := DeleteToRecycleBin(WindowHandle, ExcludeTrailingPathDelimiter(Filename), Confirm) ;
End ;
End ;
|
Лог:
| Код |
06-06-2013 22:21:33.890 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\bolts & blip\-langen-graphical\ to recycle bin with result 1026.
06-06-2013 22:21:33.890 Error 1026 try Delete without Trailing Path Delimiter.
06-06-2013 22:21:38.906 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\bolts & blip\-langen-graphical to recycle bin with result 5.
06-06-2013 22:21:38.906 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\bolts & blip\-langen-posters\ to recycle bin with result 1026.
06-06-2013 22:21:38.906 Error 1026 try Delete without Trailing Path Delimiter.
06-06-2013 22:21:43.906 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\bolts & blip\-langen-posters to recycle bin with result 5.
06-06-2013 22:21:43.921 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\falling skies\-langen-graphical\ to recycle bin with result 1026.
06-06-2013 22:21:43.921 Error 1026 try Delete without Trailing Path Delimiter.
06-06-2013 22:21:48.921 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\falling skies\-langen-graphical to recycle bin with result 5.
06-06-2013 22:21:48.921 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\falling skies\-langen-posters\ to recycle bin with result 1026.
06-06-2013 22:21:48.921 Error 1026 try Delete without Trailing Path Delimiter.
06-06-2013 22:21:53.953 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\falling skies\-langen-posters to recycle bin with result 5.
06-06-2013 22:21:53.953 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\svaty\-langen-posters\ to recycle bin with result 1026.
06-06-2013 22:21:53.953 Error 1026 try Delete without Trailing Path Delimiter.
06-06-2013 22:21:58.953 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\svaty\-langen-posters to recycle bin with result 5.
...
06-06-2013 22:26:50.218 Delete C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\MPTVSeriesBanners\top gear\episodes\0x113.jpg to recycle bin with result 0.
|
Бьюсь уже третий день, ничего в голову не приходит, может есть идеи у кого? |