Probleme mit dem Freigeben von TabSheets

[r2c2]

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