Verzeichnis im Startmenü löschen

[moelski]

Moin !

In FileList[j] steht der ganze Pfad also z.B.
C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\LogView V2 Test\Binary\PortmonXP

Einen Wechsel mache ich nicht. Mein Verzeichnis löschen schaut so aus:

Delphi-Quellcode:

  for j := FileList.Count -1 downto 0 do begin
    if IsFolderEmpty(FileList[j]) then begin
      Log('Löschen leeres Verzeichnis : ' + FileList[j], ClMaroon, True);

      Log('Löschen : ' + IntToStr(ShellDelete(FileList[j])), clRed, True);
      //if NOT RemoveDir(FileList[j]) then
      //  Log('Problem beim Löschen : ' + SysErrorMessage(GetLastError), clRed, True);
    end;
  end;

[Bbommel]

Versuch doch trotzdem einfach mal vor dem Löschen des Verzeichnisses in ein anderes Verzeichnis zu wechseln, vielleicht setzt ja "irgendwas" das Verzeichnis, in dem du die Datei löschst, als aktives Verzeichnis.

Bis denn
Bommel

[moelski]

Moin !

Ich habe schon versucht mittels SetCurrentDir das Verzeichnis umzusetzen auf den normalen Anwendungspfad unter C:\Programme\...
Hat aber auch nix genutzt.

Und wenn ich mit GetCurrentDir eine Abfrage mache wo ich stehe wenn ich den Ordner löschen will, dann stehe ich irgendwo unter
C:\Dokumente und Einstellungen\Administrator\Eigene Dateien
Also nicht in dem Verzeichnis was ich löschen möchte.

[moelski]

Moin !

Ich bin einen Schritt weiter.
Bevor ich die Verzeichnisse Lösche, lösche ich die darin befindlichen Shortcuts.
Dafür erzeuge ich eine Liste mit allen *.LNK Files.

Der Code schaut so:

Delphi-Quellcode:

  FileList := TStringList.Create;
  ReadAllFilesInDir(GetSpecialFolder(handle, DirCSIDL) + '\' + AppName + '\*.lnk', FileList);

Und der Code für ReadAllFilesInDir ...

Delphi-Quellcode:

Procedure ReadAllFilesInDir(mask: string; Var Liste : TStringList);
var
  search      : TSearchRec;
  directory   : string;
begin
  directory := ExtractFilePath(mask);

  // find all files
  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
      // add the files to the listbox
      if (lowercase(search.Name) <> 'make.exe') AND
         (lowercase(search.Name) <> 'install.xml') then
        Liste.Add(ExpandFileName(directory + search.Name));
    until FindNext(search) <> 0;
  end;

  // Subdirectories/ Unterverzeichnisse
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
        ReadAllFilesInDir(directory + search.Name + '\' + ExtractFileName(mask), Liste);
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

Nachdem das ReadAllFilesInDir gelaufen ist habe ich auf dem Verzeichnis ein Handle. Und das bleibt auch bestehen wenn ich zu dem Codeteil komme wo ich das Verzeichnis löschen möchte.
Wenn ich das File Handle manuell per Process Explorer lösche, dann klappt auch das löschen des Verzeichnisses!

Frage also ...
Was erzeugt in dem obrigen Code ein Filehandle und wie kann ich das wieder los werden?

Anbei noch eine Grafik ...

[Klaus01]

.. wenn das Verzeichnis keine Unterverzeichnisse hat, wird findClose nicht aufgerufen.

Grüße
Klaus

[SirThornberry]

innerhabl des ersten if-blocks (FindFirst) rufst du nirgends FindClose auf.
Warum rufst du eigentlich 2 mal FindFirst auf, für Dateien und Verzeichnisse getrennt? Warum nicht nur ein einziges mal aufrufen und anhand des Attributes entscheiden ob es ein Ordner ist oder nicht.
Was auch komisch ist das du einmal $23 nimmst und im zweiten Fall mit Konstanten arbeitest. Warum nimmst du nicht generell Konstanten oder generell keine Konstanten?

[moelski]

Moin !

Ich muss zu meiner Schande gestehen das die Funktion nicht von mir ist. Insofern kann ich die Fragen warum dies und das so und so gelöst wurde nicht beantworten
Mit dem FindClose funktioniert die Sache nun aber schon mal Fehlerfrei

Werde dann mal die Funktion etwas umschreiben .... 8)

Soweit aber erstmal vielen Dank für die Hilfe !!

[moelski]

Moin !

So nun schaut das schon etwas universeller und läuft ohne Fehler

Delphi-Quellcode:

Procedure ReadAllFilesInDir(mask: string; Var Liste : TStringList; 
                            readFolder, readFiles : Boolean);
var sr        : TSearchRec;
    directory : string;
begin
  directory := ExtractFilePath(mask);

  if FindFirst(mask, faAnyFile, sr) = 0 then
  begin
    repeat
      if (lowercase(sr.Name) <> 'make.exe')         and
         (lowercase(sr.Name) <> 'install.xml')      and
         (sr.Name <> '.')                           and
         (sr.Name <> '..')                          and
         ((sr.Attr and faDirectory) <> faDirectory) then
        if readFiles then
          Liste.Add(ExpandFileName(directory + sr.Name));

      if ((sr.Attr and faDirectory) = faDirectory) and 
         (sr.Name <> '.')                          and
         (sr.Name <> '..')                         then begin
        if readFolder then
          Liste.Add(ExpandFileName(directory + sr.Name));
        ReadAllFilesInDir(directory + sr.Name + '\' + ExtractFileName(mask), Liste, readFolder, readFiles);
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;