Loeschen in den Papierkorb funktioniert nicht aus Delphi heraus

[himitsu]

und was passiert bei Folgendem?

* try-except, welche nix machen und einfach nur die Fehlermeldung zerstören sind eine schlechte Angewohnheit

* das in deinem Code sinnlos rumliegende l_result hab ich mal verwendet
(hatte dich da denn nicht der Compiler auf was hingewiesen? )

* und vorallem wird jetzt mal das Funktionsergebnis besser ausgewertet
(Ja+FehlerUndVorallemWelcher ist doch wohl besser als nur ein Ja+Nein)

Delphi-Quellcode:

procedure TFyourshow.DeleteFileToRecycleBin(const AFile: string);
var
  Operation: TSHFileOpStruct;
  l_result: integer;
begin
  with Operation do
  begin
    Wnd := 0;
    wFunc := FO_DELETE;
    pFrom := PChar(AFile + #0);
    pTo := Nil;
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
    hNameMappings := NIL;
    lpszProgressTitle := NIL;
  end;
  l_result := SHFileOperation(Operation);
  if l_result <> 0 then
    Raise Exception.Create(SysErrorMessage(l_result));
end;