شباب ما هو كود حذف ملف معين

if not deletefile(pchar(Path+'\fIleName+'.xls')) then

showmessage('Une erreur est survenue lors de la supression du fichier');

اخرج لي رساله الخطا و الملف لم يحذف انا لا افهم ما هو الخطا الذي قد يحث اثناء حذف ملف لا يتعدي عده كيلو بايتات هل هي مساله متعلقه بالصلاحيات

اقتباس

انه يعمل علي اي شيء علي جهازي غير السي

هل يوجد حل بديل او كود بديل للحذف

إذا لم يكن هناك السماحيات الكافية لحذف الملف فلا أظن أن هناك طريقة إلا بالحصول على هذه السماحيات والله أعلم

استخدم هذا الكود وأخبرنا برسالة الخطأ

if not deletefile(pchar(Path)) then
ShowMessage(SysErrorMessage(GetLastError));

ما نوع الـ File system لـ C ؟ أهو NTFS ؟

السلام عليكم

اقتباس

ولكنه لم يفعل شيء فهل هناك كود غيره

انه يعمل علي اي شيء علي جهازي غير السي

عندما اطلب حذف ملف علي الدي مثلا يحذفه و لكن السي لا يتم حذفه

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

var
  Form1: TForm1;
  Df : array [0..255] of char;
  SFileOS : TSHFileOpStruct;
implementation

{$R *.dfm}

Function DeleteFolder(P_Char : string): Boolean;
begin
  try
   Fillchar(SFileOS,Sizeof(SHFileOpStruct),0);
   FillChar(Df, Sizeof(Df), 0 );
   StrPCopy(Df, P_Char);
   with SFileOS do begin
	Wnd := 0;
	pFrom := @Df;
	wFunc := FO_DELETE;
	fFlags := FOF_ALLOWUNDO;
	fFlags := fFlags or FOF_NOCONFIRMATION;
	fFlags := fFlags or FOF_SILENT;
   end;
	Result := (SHFileOperation(SFileOS) = 0);
   except
	Result := False;
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
if DeleteFolder('C:\New Folder') then
ShowMessage('Êã ÇáÍÏÝ')
else
ShowMessage('ÛíÑ ãæÌæÏ');

end;

واضف

uses
ShellAPI

;)

جرب أخي الكريم قبل الحذف ان تجعل الملف عادي اي ليس للقراءة فقط او مخفي او نظام

اي اكتب الكود التالي

SetFileAttributes('filepath', 0);

ثم حاول الحذف

جرب الكود وطمني

يا أخ super rio

هذا الكود الذي كتبته يعمل و لكن يمكن أن يكون هناك خطأ في مسار الملف

و يجب التأكد من أن تضع مسار الملف المراد حذفه و ليس اسم الملف فقط.