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;