Zum fortlaufen! Auch das klappt net. Zwischendurch hab ich gedacht es liegt vielleicht daran, wie der Ordner gelöscht wird. Lösch ich den nämlich nicht, klappt alles problemlos ohne
AV. Ich hab also die Funktion DeleteDir von ner Funktion, die ich irgendwo gefunden hab, auf ne eigene umgestellt(jetzt wird das Verzeichnis rekursiv gelöscht). Nur leider klappt auch das net.
Momentan sieht meine Funktion so aus:
Delphi-Quellcode:
function TGroups.DeleteGroup(const AName: string): Boolean;
var
DelPage: Integer;
begin
Result := False;
(FPageControl.ActivePage.Components[0] as TShellListView).Root := 'C:\'; // Root umstellen
if DeleteDir(ExtractFilePath(ParamStr(0)) + 'Links\' + AName) then // Ordner löschen
begin
DelPage := FPageControl.ActivePageIndex; // Index merken
ActivateStd; // die Registerkarte "Standard" aktivieren
FPageControl.Pages[DelPage].Free; // Free.
Result := True;
end;
end;
Irgendwie muss es aber doch am ShellistView liegen!
mfg
Christian