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)