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

برمجة وبرامج


أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد! يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى

إنشاء فهرس باستعمال لغة البرمجة دلفي

اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

Couade

Couade

السلام وعليكم ورحمة الله تعالى وبركاته ،
لهواة الدلفي والباسكل نقدم لهم اليوم كود يستعمل لإنشاء مجلد أو فهرس على القرص
- للقيام بذلك نستعمل الدالة :
الكود:
CreateDir(const Dir : String) : Boolean;

الموجودة بالوحدة
الكود:
SysUtils
من الأفضل القيام باختبار للتأكد من صحة المسار ووجوده .
وهذا نص الكود :
procedure TForm1.Button1Click(Sender: TObject);
begin

 if not
DirectoryExists('C:\temp') then
   if not
CreateDir('C:\temp') then
     raise
Exception.Create('لا يمكن إنشاء C:\temp');
end

2إنشاء فهرس باستعمال لغة البرمجة دلفي  Empty إنشاء مجلدات فرعية الثلاثاء مايو 17, 2016 2:18 pm

Couade

Couade

يمكن استعمال الدالة :
الكود:
ForceDirectories (Dir : string) : Boolean
لإنشاء ملجد ومجلدات فرعية له دون الحاجة للتأكد من وجود هذا المجلد أو عدم وجوده
وهذا نص الكود :
procedure TForm1.Button1Click(Sender: TObject); 
var
 
Dir: string;
begin
 
Dir := 'C:\APPS\SALES\LOCAL';
if ForceDirectories(Dir) then
   
Label1.Caption := Dir + ' تم إنشاء';
end;


3إنشاء فهرس باستعمال لغة البرمجة دلفي  Empty حذف فهرس موجود بالقرص الثلاثاء مايو 17, 2016 2:52 pm

Couade

Couade

لحذف فهرس أو مجلد  به ملفات أو كان فارغا ، لذينا خيران :
إما إن يكون المجلد فارغا فهذه الحالة نستعمل الأمر :
الكود:
RemoveDir (const Dir : String) : Boolean

أو يكون المجلد به ملفات فإننا نجلأ إلى استعمال الأوامر الموجودة بالوحدة : 
الكود:
ShellAPI
 وهذا نص الكود  :
uses
 
windows,ShellApi;

function DelDir(Dir: String): Boolean;
var fos: TSHFileOpStruct;
begin
 
ZeroMemory(@fos, SizeOf(fos));
 
with fos do begin
   
wFunc := FO_DELETE;
   
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   
pFrom := PChar(Dir + #0);
 
end;
 
Result := (0=ShFileOperation(fos));
end;


من الأفضل التأكد من صحة المسار قبل القيام بتنفيذ الأمر.

4إنشاء فهرس باستعمال لغة البرمجة دلفي  Empty تغيير اسم فهرس الخميس مايو 19, 2016 8:52 am

Couade

Couade

تستعل الدالة :
الكود:
RenameFile (constOldName, NewName : string) : Boolean
لتغيير اسم ملف وكذلك تغيير اسم فهرس أو مجلد وهذا نص الكود :
الكود:
RenameFile('c:\tmp\', 'c:\tmp2\');
ومن الأفضل التاكد من صحة المسار

الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

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