CopyFile; MoveFile; SHFileOperation

[Opa]

So geht es vom Prinzip her.
Kannte den Befehl (MoveFileWithProgress) nicht.
Beim Kopieren und Verschieben in ein anders Lw, wird CopyProgressRoutine ausgeführt sonst nicht. Das aber ist genau das was ich wollte.
CopyProgressRoutine, hat bei mir nur die Funktion, das Aufrufen von TMain.Test, und damit zurück zur From in der dann die Sache von TGauge vorhanden ist.
Der Tip von Dir >>himitsu<< war wieder mal nicht mit Gold aufzuwiegen, Danke

Von Luckie-ist auch nicht schlecht

Delphi-Quellcode:

//--------------------------------------------------------------------------------------------------
function CopyProgressRoutine(TotalFileSize, TotalBytesTransferred, StreamSize,
  StreamBytesTransferred: int64; dwStreamNumber, dwCallbackReason: DWORD;
  hSourceFile, hDestinationFile: THandle; lpData: pointer): DWORD; stdcall;
begin
  TMain(lpData).Test(TotalFileSize,TotalBytesTransferred);
end;
//--------------------------------------------------------------------------------------------------
procedure TMain.Test(TotalFileSize,TotalBytesTransferred:int64);
begin
  Gauge1.MaxValue := TotalFileSize div $FFFF;
  Gauge1.Progress := TotalBytesTransferred div $FFFF;
end;
//--------------------------------------------------------------------------------------------------
procedure TMain.Button3Click(Sender: TObject);
var
  Result : boolean;
  FilenameSource,
  FilenameDest    : string;
begin
  FilenameSource := 'E:\Temp\Test.mp3';
  FilenameDest   := 'D:\01\Test.mp3';
Result := MoveFileWithProgress(PChar(FilenameSource),
                               PChar(FilenameDest),
                               @CopyProgressRoutine,
                               Self,
                               MOVEFILE_COPY_ALLOWED);
end;