ساعدوني

السلام عليكم ورحمة الله وبركاته

لنسخ الملفات استخدم هذا الكود

procedure TForm1.Button1Click(Sender: TObject );
begin
      if CopyFile('c:test.txt','d:test.txt',True) then
            ShowMessage('تم نسخ الملف')
      else
            ShowMessage('لم يتم نسخ الملف')
end;

لحذف الملفات استخدم هذا الكود

procedure TForm1.Button1Click(Sender: TObject);
begin
  if deleteFile('c:test.txt')= true  then
            ShowMessage('تم حذف الملف')
      else
            ShowMessage('لم يتم حذف الملف')
end;

لنسخ وحذف ونقل المجلدات مع ملفاتها استخدم هذا الكود

uses 
  ShellApi; 

function CopyDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_COPY; 
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end; 


function MoveDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_MOVE; 
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end; 

function DelDir(dir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_DELETE; 
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION; 
    pFrom  := PChar(dir + #0); 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if cCopyDir('d:download', 'e:') = True then 
    ShowMessage('Directory copied.'); 
end;