Verzeichnisse Kopieren mit Progressbar

[WizoHulk]

Hi Ihr da draussen,

mit diesem Code kopiere ich Gesamte Verzeichnisse...

Delphi-Quellcode:

class function TMyDaten.CopyDirectory(AFromFolder, AToFolder: string): boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  fos.wFunc := FO_COPY;
  fos.fFlags := FOF_SIMPLEPROGRESS OR FOF_NOCONFIRMATION;
  fos.pFrom := PChar(AFromFolder + #0);
  fos.pTo := PChar(AToFolder);
  Result := (0 = ShFileOperation(fos));
end;

Das klappt ja soweit auch ganz gut.
Aber mit diesem Code kann ich nicht werte abfangen(anzahl der Ordner) um mir den fortschritt in einer Progressbar anzeigen zu lassen.

Gibt es da irgend wie nen kniff?
Oder muss ich den Code gänzlich über bord schmeißen...?

[Luckie]

Setze die Flags richtig und der Dialog zeigt dir den Fortschritt an.

[WizoHulk]

ich hab ja immer das Windows fenster.
Ich möchte ja selber an eine Progressbar übergeben

[s.h.a.r.k]

Eine Callback-Methode kannst du damit nicht registrieren. Zumindest habe ich nichts in der Doku gefunden.

[Luckie]

Dann wirst du das Kopieren wohl selber machen müssen.