برنامج كيفية حذف ملف ببرنامج دلفي

[طيباوي ابو علي1]

كيفية حذف ملف ببرنامج دلفي

بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين

انشاء مشروع جديد دلفي

وضع هذه العناصر على الفورم

Button1: TButton;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;


تم عرض ثلث طرق لحذف ملف
وبــأمرين مختلفين
DeleteFile و Erase

procedure TForm1.Button1Click(Sender: TObject);//djelfa.info/vb
var//djelfa.info/vb
    FileName: String;//djelfa.info/vb
begin//djelfa.info/vb
  FileName := 'fichier1.txt';//djelfa.info/vb
  if FileExists(FileName) then//djelfa.info/vb
           DeleteFile(FileName);//djelfa.info/vb
end;//djelfa.info/vb

procedure TForm1.Button2Click(Sender: TObject);//djelfa.info/vb
var
  F:Textfile;//djelfa.info/vb
  FileName: String;//djelfa.info/vb 
begin//djelfa.info/vb
 FileName := 'fichier1.txt';//djelfa.info/vb
 if FileExists(FileName) then//djelfa.info/vb
 begin//djelfa.info/vb
   AssignFile(F, FileName);//djelfa.info/vb
   try//djelfa.info/vb
    Reset(F);//djelfa.info/vb
    CloseFile(F);//djelfa.info/vb
    Erase(F);//djelfa.info/vb
    except//djelfa.info/vb
     on EInOutError do//djelfa.info/vb
  end;//djelfa.info/vb
 end;//djelfa.info/vb
end;//djelfa.info/vb

procedure TForm1.Button3Click(Sender: TObject);//djelfa.info/vb
var
  F:Textfile;//djelfa.info/vb
begin //djelfa.info/vb
  with OpenDialog1 do//djelfa.info/vb
  begin//djelfa.info/vb
   Title :='Suppression de fichier';//djelfa.info/vb
   Filter := 'Tout les fichiers (*.*)|*.*';//djelfa.info/vb
   if Execute then//djelfa.info/vb
   begin//djelfa.info/vb
    if MessageDlg('Supprimer '+FileName + '?',//djelfa.info/vb
      mtConfirmation,[mbYes,mbNo],0) = mrYes then//djelfa.info/vb
        DeleteFile(FileName);//djelfa.info/vb
  end;//djelfa.info/vb
 end;//djelfa.info/vb
end;//djelfa.info/vb

ربما سأتوقف مدة شهر عن وضع المواضيع لانتهاء مدة الانترنت الممنوحة لي
وكذلك الزيارة وشكرا للجميع

ربما أزيد موضوع اخر لاني افكر فيه الان أي اذا انتعيت منه قريبا قبل انتهاء المدة


وهو بخصوص حذف الملف
bootcfg1.exe

لان جهازي مصاب به

الملف موجود داخل المجلد
system32

ويشغل تلقئيا عند بدأ تشغيل الجهاز

البرنامج الذي أفكر فيه هو أن يقوم بحذف الملف من المجلد ومن regedit
وكل هذا نجحت فيه

ولم أنجح في وإقاف تشغيله برماجيا بعد ، الان اقفه يدويا والبرنامج يكمل الباقي

وهناك ملف اخر يقوم بانشائه كلما تم حذفه أنشئ من جديد
الملف المنشئ لم أعرفه بعد

أي نصائح أو توجيهات أرجو أن تفيدنا بها

مشكورين

ملاحظة
النظام
windows xp

.