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

السلام وعليكم ورحمة الله تعالى وبركاته ،
لهواة الدلفي والباسكل نقدم لهم اليوم كود يستعمل لإنشاء مجلد أو فهرس على القرص
- للقيام بذلك نستعمل الدالة :

الكود:

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

يمكن استعمال الدالة :

الكود:

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;

لحذف فهرس أو مجلد  به ملفات أو كان فارغا ، لذينا خيران :
إما إن يكون المجلد فارغا فهذه الحالة نستعمل الأمر :

الكود:

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;

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

تستعل الدالة :

الكود:

RenameFile (constOldName, NewName : string) : Boolean

لتغيير اسم ملف وكذلك تغيير اسم فهرس أو مجلد وهذا نص الكود :

الكود:

RenameFile('c:\tmp\', 'c:\tmp2\');

ومن الأفضل التاكد من صحة المسار