Inno Kurulumu: Kod bölümündeki klasörü, alt klasörleri ve dosyaları yinelemeli olarak kopyalama

Question

Kod bölümündeki bir dizinin tüm dosyaları ve alt dizinlerini taramak ve kopyalamak için herhangi bir yöntem var mı? (PrepareToInstall)

Belirli bir dizin yok saymak gerekir, ancak xcopy kullanarak örneğin, tüm dizinleri /default/ yok sayar ve sadece belirli görmezden gerekir.

Files bölümü, gerektiğinde daha sonra yürütülür. yinelemeli programlı bir dizin kopyalamak için

Answer 1

kullanın:

procedure DirectoryCopy(SourcePath, DestPath: string); 
var 
    FindRec: TFindRec; 
    SourceFilePath: string; 
    DestFilePath: string; 
begin 
    if FindFirst(SourcePath + '\*', FindRec) then 
    begin 
    try 
     repeat 
     if (FindRec.Name <> '.') and (FindRec.Name <> '..') then 
     begin 
      SourceFilePath := SourcePath + '\' + FindRec.Name; 
      DestFilePath := DestPath + '\' + FindRec.Name; 
      if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then 
      begin 
      if FileCopy(SourceFilePath, DestFilePath, False) then 
      begin 
       Log(Format('Copied %s to %s', [SourceFilePath, DestFilePath])); 
      end 
       else 
      begin 
       Log(Format('Failed to copy %s to %s', [SourceFilePath, DestFilePath])); 
      end; 
      end 
      else 
      begin 
      if DirExists(DestFilePath) or CreateDir(DestFilePath) then 
      begin 
       Log(Format('Created %s', [DestFilePath])); 
       DirectoryCopy(SourceFilePath, DestFilePath); 
      end 
       else 
      begin 
       Log(Format('Failed to create %s', [DestFilePath])); 
      end; 
      end; 
     end; 
     until not FindNext(FindRec); 
    finally 
     FindClose(FindRec); 
    end; 
    end 
    else 
    begin 
    Log(Format('Failed to list %s', [SourcePath])); 
    end; 
end; 

size gereken herhangi filtreleme ekleyin. . ve ..'un nasıl filtrelendiğini görün. Kullanım örneği için

---

, sorulara cevapları bkz:

• Copying hidden files in Inno Setup
• How to save a folder when user confirms uninstallation? (Inno Setup).