دخول

larbiparadox · 11-09-2019, 07:35 PM

* يمكن عمل ذلك بإستعمل مكتبة ShellAPI

كود :
uses
ShellAPI;

* بعد ذلك نقوم بكتابة إجراء يساعد على : النسخ أو النقل أو تغيير الاسم ، وذلك الاحتياج

كود :
procedure FileAction(action:longint;fromDir,toDir:string);
var MyFileAction:TSHFileOpStruct;
begin
MyFileAction.wnd :=Form1.handle;
MyFileAction.wFunc :=action;
MyFileAction.pFrom :=Pchar(fromDir +#0+#0);
MyFileAction.pTo :=Pchar(toDir +#0+#0);
MyFileAction.fFlags:=FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
MyFileAction.fAnyOperationsAborted:=false;
MyFileAction.hNameMappings :=NIL;
MyFileAction.lpszProgressTitle :=NIL;
SHFileOperation(MyFileAction);
end;

* الان تنفيذ الجراء : FO_MOVE,FO_DELETE,FO_COPY,FO_RENAME
امثلة:

- لعملية النسخ :

كود :
FileAction(FO_COPY,Edit1.text,Edit2.text);

- لعملية النقل ملفات من مجلد الى اخر :

كود :
FileAction(FO_MOVE,Edit1.text,Edit2.text);

حمل المثال من المرفقات

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة