إنشاء مجلد

السلام عليكم ...

جربي ...ها الكود

procedure TForm1.Button1Click(Sender: TObject);
BEGIN
 if CreateDir(edit1.Text)=true then
  showmessage('تم أنشاء المجلد '+EDIT1.Text)
 else
  showmessage('لم يتم الأنشاء'+EDIT1.Text);

أخوكم:cool:

شكراً لك ... سأجربه (f)(f)

PHP:

الطريقة التي أعطاك إياها الاخ fox delphi مشكور هي طريقة صحيحة

لكن هذه اضافة بسيطة لتحديد المسار

   if   not  DirectoryExists('c:temp')  then
       if   not  CreateDir('C:temp')  then
       raise  Exception.Create('Cannot create c:temp');

ذكرني أن أشرح التابع gREATDIR في دروس الAPI

هناك طرق أخرى اعم كالتي تستعملها بعض العناصر

الرجاء إخبارنا بكل جديد ولاتنسى متابعة دروس الapi

أخوك رضا

(f)

شكراً لكما كثيراً (f)(f)(f)

هناك مشكلة ما حين أحاول حذف مجلد لا أدري ما سببها

طبعاً بعد أن أكون قد أسندت قيمة صحيحة للمتحول FinalDir ، و الغريب هو أنني حين لا أستخدم المتحول و أستخدم نفس القيمة و لكن بكتابتها كثابت أي ليس متحولاً فلا تظهر هذه المشكلة و يحذف المجلد بدون خطأ فما السبب يا ترى

أخي العزيز

الكود الذي وضعته انت لم تحدد فيه مكان المجلد الذي تريد حذفه

كيف للبرنامج ان يتحسس لذلك

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

طبعا هو يعتمد على توابع ShellApi

function DeleteDir(const Directory: string);
var
  FileOp: TSHFileOpStruct;
begin
  FileOp.Wnd := Application.Handle;
  FileOp.wFunc := FO_DELETE;
  FileOp.pFrom := PChar(Directory + #0);
  FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  label1.cvation := SHFileOperation(FileOp) = 0;
end;

شكراً لك أخ reda و لكن هل من الممكن أن تشرح لي

اقتباس

label1.cvation

شكراً سلفاً(f)(f)

جذاك الله خيرا (gift)

اسف اخي خطأ كتابي

ضع اي متحول من نوع sting

لتظهر عليه النتيجة