Wie funktioniert MoveFileWithProgress?

[matze0815]

Hallo!

Ich suche ein Beispiel des Win32-API Befehls "MoveFileWithProgress".
Es geht mir darum den Fortschitt eines Kopier- oder Verschiebe-Prozesses abzufangen.

Informationen habe ich schon unter
http://msdn.microsoft.com/library/de...thprogress.asp
und
http://msdn.microsoft.com/library/de...essroutine.asp
gefunden, aber mir ist dennoch nicht klar, wie ich den Aufruf der CallBack-Funktion gestalte!

Hier mein Versuch:

Delphi-Quellcode:

Result := MoveFileWithProgress(pchar(FilenameSource),
                               pchar(FilenameDest),
                               ProgressProc,
                               nil,
                               MOVEFILE_REPLACE_EXISTING);

function ProgressProc(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred: longInt;
                      dwStreamNumber, dwCallbackReason: DWORD;
                      hSourceFile, hDestinationFile: THANDLE;
                      lpData: Pointer): DWORD;
begin
//...
end;

Die Fehlermeldung ist: "Nicht genügend wirkliche Parameter." :-(

Bin für jeden Hinweis dankbar!

(Ich verwende Delphi 2005)

[Flocke]

Du müsstest deine Routine so deklarieren:

Delphi-Quellcode:

function CopyProgressRoutine(TotalFileSize, TotalBytesTransferred, StreamSize,
  StreamBytesTransferred: int64; dwStreamNumber, dwCallbackReason: DWORD;
  hSourceFile, hDestinationFile: THandle; lpData: pointer): DWORD; stdcall;
begin
...
end;

Wichtig sind das stdcall, die exakten Typen der Parameter (int64) und dass es sich nicht um die Methode eines Objekts handeln darf. Bei der Angabe als Parameter machst du dann ein @ vor den Namen, also:

Delphi-Quellcode:

Result := MoveFileWithProgress(pchar(FilenameSource),
                               pchar(FilenameDest),
                               @CopyProgressRoutine,
                               nil,
                               MOVEFILE_REPLACE_EXISTING);