Fragen zu TShellListView / TreeView

[toms]

Zitat von kevin134:

hmmm
das mit der Progressbar bekomm
ich aber irgentwie immer noch
nicht hin =/

Copy & Paste die CopyFileWithProgressBar1 Funktion, setze eine Progressbar auf deine Form

und rufe die Funktion auf:

CopyFileWithProgressBar1('Datei1.xyz', 'Datei2xyz', ProgressBar1);

Delphi-Quellcode:

procedure CopyFileWithProgressBar1(Source, Destination: string; ProgressBar: TProgressBar);
var
  FromF, ToF: file of byte;
  Buffer: array[0..4096] of char;
  NumRead: integer;
  FileLength: longint;
begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);
  with ProgressBar do
  begin
    Min := 0;
    Max := FileLength;
    while FileLength > 0 do
    begin
      BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
      FileLength := FileLength - NumRead;
      BlockWrite(ToF, Buffer[0], NumRead);
      Position := Position + NumRead;
    end;
    CloseFile(FromF);
    CloseFile(ToF);
  end;
end;