Win Api-Kopierfunktion ohne Fenster?

[Helmi]

Zitat von Luckie:

Da wird dochnur CopyFileEx beschrieben...

Ja, hab ich auch gerade gesehen - Sorry!

Aber Luckie, kann es sein dass bei:

Delphi-Quellcode:

    CEXM_MAXBYTES:
      begin
        ProgressBar1.Max := (Msg.LParam) shl 32) + Msg.WParam;
      end;

ein Fehler drin ist und es so heissen muss:

Delphi-Quellcode:

    CEXM_MAXBYTES:
      begin
        ProgressBar1.Max := (Int64(Msg.LParam) shl 32) + Msg.WParam;
      end;

[edit]
Und irgendwie geht bei dem Code gar nix! Ich hab mir das mal zur Laufzeit angeschaut!
Bei:

Delphi-Quellcode:

procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
  case Msg.Msg of
    CEXM_MAXBYTES:
      begin
        ProgressBar1.Max := (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);
      end;
    CEXM_CANCEL:
    begin
      Progressbar1.Position := 0;
      Caption := '0';
    end;
  end;
end;

springt er bei "case Msg.Msg" sofort wieder zu end