کپی کردن فایل

ooh.
این رو بخون.

نقل قول:

---

و یه تایمر بزار که StartFrame رو تغییر بده.(برای حرکت انیمیشن)
توی تایمر هم مشخص کن که وجود اون فایل رو که میخواهی کپی کنی رو چک کنه.

---

بای

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
يك روش ديگر :

کد:

---

uses
  ShellApi;

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
  shellinfo: TSHFileOpStructA;
begin
  with shellinfo do
  begin
    wnd  := Application.Handle;
    wFunc := Flags;
    pFrom := PChar(fromFile);
    pTo  := PChar(toFile);
  end;
  SHFileOperation(shellinfo);
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellFileOperation('c:\afile.txt', 'd:\afile2.txt', FO_COPY);
  // To Move a file: FO_MOVE
end;

---

---

خیلی ممنون
خیلی ممنون برای پوشه این روش جواب نمی ده
با progresBar

سلام

نقل قول:

---

نوشته شده توسط soldier [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
پس اون تایمر کارش چیه؟ خوب همون ProgressBar رو تنظیم میکنه.
بای

---

اون Timer برای فایل نه برای پوشه
برای پوشه باید چه کار کرد

سولجر عزيز چرا زور ميگي :sad:
براي حركت انيميشن كه از خاصيت Active هم ميشه استفاده كرد ولي...
منظور من اينه كه نشون بده چند درصد از عمليات كپي انجام شده;-)