Moin !
Tja ich habe jetzt mal 10 Sekunden gewartet und zusätzlich mittels SHFileOperation gelöscht:
Delphi-Quellcode:
function ShellDelete(const fsoName: string): Integer;
var
sh: SHFileOpStruct;
iResult: Integer;
begin
ZeroMemory(@sh, sizeof(sh));
with sh do
begin
wFunc := fo_Delete;
pFrom := PChar(fsoName + #0);
fFlags := fof_Silent or fof_NoConfirmation or fof_NoErrorUI;
end;
Result := SHFileOperation(sh);
end;
Aber das Ergebnis ist 32. Und wenn man dann mal in die Winerror schaut steht da:
Zitat:
//
// MessageId: ERROR_SHARING_VIOLATION
//
// MessageText:
//
// The process cannot
access the file because it is being used by
// another process.
//
#define ERROR_SHARING_VIOLATION 32L
Mist, kann doch nicht angehen sowas ...
