Verzeichnis im Startmenü löschen

[moelski]

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 ...