This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
for i := 0 to filelistbox.Items.Count - 1 do begin // Listbox with the files to bg copied pbBuild.stepit; // tProgress Bar f := 'c:\backupfiles\' + filelistbox.Items.Strings[i]; f1 := 'c:\origionalfiles\' + filelistbox.Items.Strings[i]; Label1.caption := 'From ' + f; Label2.caption := 'To ' + f1; Label1.refresh; Label2.refresh; form1.Refresh; CopyFile(PChar(f), PChar(f1), False); appscount := appscount + 1; form1.bringtofront; lCopied.Caption := 'Files Copied - ' + inttostr(AppsCount); lCopied.repaint; form1.Repaint; form1.refresh; end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.