CopyFileProgress: negativer Wert beim Kopieren

[Helmi]

Hallo,

ich hab Luckies CopyFileEx mal ausprobiert
um Dateien größer 2 GB zu kopieren und den Kopiervorgang in einer Progressbar anzeigen zu lassen.

Ich hab mir testweise dann einfach mal die maximale Dateigröße und die bisher kopierte Dateigröße in je einem Label anzeigen lassen und musste feststellen, dass der bisher kopierte Wert auf einmal ins negative umschlägt.

Nur wieso?


Hier mal ein Auszug aus meinem Code zum Anzeigen der Dateigröße und der bisher kopierten Dateigröße:

Delphi-Quellcode:

    CEXM_MAXBYTES:
      begin
//        ProgressBar1.Max := (Int64(Msg.LParam) shl 32) + Msg.WParam;
        Label1.Caption := IntToStr((Int64(Msg.LParam) shl 32) + Msg.WParam);
      end;
    CEXM_CONTINUE:
      begin
//        Progressbar1.Position := (Int64(Msg.LParam) shl 32) + Msg.WParam;
        Caption := IntToStr(Msg.WParam + Msg.LParam);

        Label2.Caption := Caption;
      end;