Temp و %Temp%

[appakar]

مرحبا بالجميع
اود الإستفسار عن كيفية تفريغ مجلدي Temp و %Temp%  برمجيا باستخدام الدلفي

[Ndagor]

انظر في هذا الكود الذي يمكنه حذف ملفات المؤقتة  يجب توقع ان بعض الملفات لايمكن حذفها

كود :

uses ShellAPI;
procedure RemoveTempFiles();
var
  Rec: TSearchRec;
  S,t,Dir:string;
  FOS: ShellAPI.TSHFileOpStruct;  // contains info about required file operation
  Ph:array[byte] of Widechar;
begin
  Ph:='';
  Winapi.Windows.GetTempPath(256,PWideChar(@Ph));// temp path
  Dir:=ExtractFileDir(ph);
  S:= '';
  if FindFirst(Dir + '\*', faAnyFile, Rec) = 0 then
  try
      repeat
          if (Rec.Attr and faDirectory) = faDirectory then
          begin
             if (Rec.Name = '.') or (Rec.Name = '..') then
                continue;
          end;
          t:=Dir + '\' + Rec.Name;
          SetFileAttributes(PChar(t),Rec.Attr  and not $3);
          S:= S+t+#0;
      until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;

  if S <> '' then
  begin
    S:= S+#0;
    FillChar(FOS, SizeOf(FOS), 0);
    with FOS do
    begin
      wFunc := ShellAPI.FO_DELETE;      // we're deleting
      pFrom := PChar(S);         // file list (#0#0 terminated)
      fFlags := ShellAPI.FOF_ALLOWUNDO  // with facility to undo op
        or ShellAPI.FOF_NOCONFIRMATION  // and we don't want any dialogs
        or ShellAPI.FOF_SILENT;
       ShellAPI.SHFileOperation(FOS)
    end;
  end;
end;

[larbiparadox]

يوجد عدة طرق للتعامل مع الملفات و المجلدات ، سواءا من دلفي مباشرة أو مكونات خارجية

* توجد مكونات خارجية نذكر منها JVCL والتي تتكون من المكتبة المرئية JEDI Visual Component Library و مكتبة الاكواد JEDI Code Library والتي تحتوي
على مكتبة التعامل مع المجلدات و الملفات و التي نصرح بها JCLFileUtils و التي تحوي على قائمة من الاجراءات

نذكر منها

كود :

DeleteDirectory
CopyDirectory
MoveDirectory

DelTree
DelTreeEx
DiskInDrive

DirectoryExists
FileCreateTemp
FileBackup
FileCopy
FileDateTime
FileDelete
FileExists

FileMove
FileRestore
GetBackupFileName
IsBackupFileName
FileGetDisplayName
FileGetGroupName
FileGetOwnerName
FileGetSize
FileGetTempName

FileGetTypeName
FindUnusedFileName
ForceDirectories
GetDirectorySize

GetDriveTypeStr
GetFileAgeCoherence

GetFileAttributeList

GetFileAttributeListEx
GetFileInformation


GetFileLastWrite
GetFileLastAccess
GetFileCreation

مثال للحذف محتوى المجلد %temp% و الذي نختصره بالدلفي بالامر TPath.GetTempPath

نستعمل الامر DeleteDirectory  ، بالنسبة الى True وهي نقل الملفات الى سلة المحذوفات و العكس حذف مباشر

كود :

DeleteDirectory (TPath.GetTempPath, false);

رابط تحميل المكتبتين jvcl اختصار إلى JEDI Visual Component Library و jcl مكتبة الاكواد JEDI Code Library

كود :

https://github.com/project-jedi

أو برمجيا

كود :

procedure RemoveTemp(const Dir: String);
var
  sDir: String;
  Rec: TSearchRec;
begin
  sDir := IncludeTrailingPathDelimiter(Dir);
  if FindFirst(sDir + '*.*', faAnyFile, Rec) = 0 then
  try
    repeat
      if (Rec.Attr and faDirectory) = faDirectory then
      begin
        if (Rec.Name <> '.') and (Rec.Name <> '..') then
          RemoveTemp(sDir + Rec.Name);
      end else
      begin
        DeleteFile(sDir + Rec.Name);
      end;
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;
  RemoveDir(sDir);
end;

تنفيذ

كود :

RemoveTemp (TPath.GetTempPath);

---

ملاحظة :

توجد ملفات تكون متصلة ببرامج أو النظام لا يمكن حذفها الا عن طريق غلق البرنامج المتصلة به

[appakar]

بارك الله في الجميع