منتدى تعليمي
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

بحـــث عـــن مـــجلـــد معيين بــدلفـــي

اذهب الى الأسفل

بحـــث عـــن مـــجلـــد معيين بــدلفـــي Empty بحـــث عـــن مـــجلـــد معيين بــدلفـــي

مُساهمة من طرف salme السبت يناير 21, 2017 5:42 pm

بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم
الصـــــلاة والســـــلام علـــى رســـــول الله

بحـــث عـــن مـــجلـــد معيين بــدلفـــي


الكود:

uses FileCtrl;

procedure TForm1.Button4Click(Sender: TObject);
begin
 if DirectoryExists('Folder11') then
 ShowMessage('هـــذا المجلد مـــوجـــود')
 else ShowMessage('هــذا المجلد غيــــر مـــوجـــد '); // folder Exist .

end




المصدر دلفي تعليم
delph.forumalgerie.net

salme
Admin

المساهمات : 38
تاريخ التسجيل : 20/01/2017

https://elf1.rigala.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى