Moin ihr.
Vielen dank für eure Tipps!
Mein Problem liegt eher dadrin, dass ich zwei Sachen nebeneinander haben möchte: Das kopieren und den Fortschritt in der ProgrssBar.
Aber hier mal der Quelltext:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
pfad2:=pchar(label7.Caption);
pfad1:=pchar(label5.caption);
if checkbox1.Checked=true then copyfile(pfad2,backup,false);
deletefile(pfad2);
[b]Copyfile(pfad1,pfad2,false);
size:=(getfilesize(pfad1) div getfilesize(pfad2))*100;
progressbar1.Position:=size;[/b]
if getfilesize(pfad2)=getfilesize(pfad1)then
with application do
MessageBox('Kopiervorgang war erfolgreich','Kopieren beendet', MB_OK);
progressbar1.Position:=0;
end;
Ich wäre sehr dankbar, wenn ihr mir helfen könntet!
[edit=sakura] [pre]-Tags. Gewöhne Dir mal ein sauberes Spacing an! Mfg, sakura[/edit]