Durch SHFileOperation gelöschte Ordner bleiben bis Programmende bestehen

[terence14]

[QUOTE=Y.Elm;1200463]
...

Delphi-Quellcode:

...
function DeleteDirectory(DirName : string): Boolean;
var
  SHFileOpStruct : TSHFileOpStruct; 
  DirBuf : array [0..255] of char;
  res: Integer;
begin
  try
   Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ;
   FillChar(DirBuf, Sizeof(DirBuf), 0);
   StrPCopy(DirBuf, DirName);
   with SHFileOpStruct do begin
    Wnd := 0;
    pFrom := @DirBuf;
    pTo   := nil;
    wFunc := FO_DELETE;
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
   end;
    res := SHFileOperation(SHFileOpStruct); // res enthält immer 0, also kein Fehler
    Result := (res = 0) ;
   except
    Result := False;
  end;
end;

QUOTE]

Hallo, schau mal den folgenden Code an und ersetze
die Unterschiede zu Deinem Code.

Delphi-Quellcode:

uses ShellAPI;

function DeleteFiles(const AFile: string): boolean;
var
  sh: SHFileOpStruct;
begin
  ZeroMemory(@sh, SizeOf(sh));
  with sh do
  begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    pFrom := PChar(AFile +#0);
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  end;
  result := SHFileOperation(sh) = 0;
end;

Beispielaufruf:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DeleteFiles('c:\test.txt') then   //um eine Datei zu löschen
    ...
  if DeleteFiles('c:\test') then       //um ein Verzeichnis zu löschen
    ...
  if DeleteFiles('c:\test\*.*') then // Um alle Dateien eines Verzeichnisses zu löschen
    ...
end;

Statt 'c:\test\*.*' kann z.B. auch 'c:\test\*.txt' übergeben werden, um alle Textdateien in einem Verzeichnis zu löschen.

MfG,
terence

[Björn Ole]

Übrigens: Wenn schon Polling, dann tut der CPU z.B. ein Sleep(1000) innerhalb der Schleife im Thread ganz gut. Bessere Alternative: Obtaining Directory Change Notifications

[Y.Elm]

Danke terence14 für die Optimierung.
@ Björn Ole: Ja, im Originalcode steht da irgendwo weiter unten ein Sleep(ObserveIntervall); . Ist mir beim Ableiten des Testprojektes wohl abhanden gekommen, weil drüber noch einige Zeilen nicht relavten Codes stehen.

Zitat von Björn Ole:

Bessere Alternative: Obtaining Directory Change Notifications

Das ist ein sehr hilfreicher Hinweis, den ich mir merken werde. Allerdings reicht es in meiner Import-DLL nicht, nur Änderungen/Ergänzungen von Dateien ans Hauptprogramm zu melden, es muss auch das bloße Vorhandensein von Dateien gemeldet werden. Und es dürfen nur Unterverzeichnisse mit einem bestimmten Namensschema berücksichtigt werden (wurde aus dem Testprojekt rausoptimiert), was letztendlich wieder auf ein Iterieren aller Unterverzeichnisse hinausläuft.