طيباوي ابو علي1
2015-07-31, 22:20
كيفية حذف ملف ببرنامج دلفي
بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين
انشاء مشروع جديد دلفي
وضع هذه العناصر على الفورم
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
.
بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين
انشاء مشروع جديد دلفي
وضع هذه العناصر على الفورم
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
.