używam tej procedury:Co robi ShFileOperation, gdy kosza jest pełny?
function MoveToRecycle(sFileName: widestring): Boolean;
var
fos: TSHFileOpStructW;
begin
FillChar(fos, SizeOf(fos), 0);
with fos do
begin
wnd := 0;
wFunc := FO_DELETE;
pFrom := PWideChar(sFileName + #0 + #0);
pTo := #0 + #0;
fFlags := FOF_FILESONLY or FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
end;
Result := (ShFileOperationW(fos) = 0);
end;
Co się stanie, jeśli kosz jest pełny, to return false lub usunąć plik na stałe?
Każda pomoc zostanie doceniona.
Wciśnij kod w czterech polach, aby uzyskać prawidłowe wyświetlenie. –
Nie wiedziałem, że Kosz może być "pełny". Jak to działa? –
Przy okazji - fajna funkcja. Właściwie dobrze wiedzieć, jak przenieść się do kosza. Zawsze używałam funkcji "deletefile". –