Kopieren mit API-Fortschrittsanzeige

[blackdrake]

Hallo.

Ich habe eine Frage zum Artikel

http://www.delphipraxis.net/internal...ect.php?t=1451

Den 2ten Code habe ich wie folgt verwendet:

Delphi-Quellcode:

if DoFileWork(FO_COPY, Filename, DragDropHandler1.Folder+'\'+extractfilename(Filename), 0) = 0 then 
begin 
  showmessage(OK); 
end;

Nach der Beschreibung sollte mit FOF_SILENT die Windows-Fortschrittsanzeige (durch API) verhindert weden. Weil ich aber keinen der Flags will, habe ich "0" als letzten Parameter angegeben. Ich bekomme aber beim Kopieren von Dateien nun trotzdem keine Windows-Fortschrittsanzeige... :-( Habe Windows XP... was ist falsch?

Gruß
blackdrake

[fkerber]

Hi!

Und wer sagt dir, dass FOF_Silent 0 ist?

Delphi-Quellcode:

FOF_SILENT                 = $0004;

Ciao, Frederic

[OldGrumpy]

@fkerber: Das hast Du glaube ich etwas falsch verstanden :) Er wollte ja eben nicht FOF_SILENT benutzen :)

Wie in dem Artikel auf den sich der OP bezieht, steht, gibt es noch mehr Flags. Hier gibt es eine vollständige Übersicht: Parameter für SHFileOperation - interessant dürften vielleicht FOF_NO_UI oder FOF_SIMPLEPROGRESS sein... Einfach mal rumprobieren :)

[blackdrake]

Hallo.

Habe nun mal FOF_SIMPLEPROGRESS probiert... Aber das Ergebnis:

http://www.daniel-marschall.de/temp/dialog.JPG

[blackdrake]

Seitdem ich FOF_SIMPLEPROGRESS verwende, kommt auch kein Überschreibungsdialog, das heißt, es handelt ebenso wie FOF_NOCONFIRMATION.

[OldGrumpy]

Hmm, komisch. Müsste ich mir morgen mal in Ruhe anschauen. Ich meld mich wieder.