mit Innosetup Dateiattribute ändern

[zeras]

Zitat von Deep-Sea:

Wie kopierst du denn die Datei?
Müsste es nicht gehen, wenn du sie als "external" zum Setup hinzufügst (und ggf. "attribs" ebenfalls hinzufügst, aber leer lässt)?

Ich habe eine Funktion geschrieben, die ich nach Kopieren der Exe ausführe.
Wenn ich dann noch die Funktion von blackfin nutze, sollte das ja dann klappen.

Danke für die Hinweise.

Delphi-Quellcode:

procedure MyAfterInstall2();
var
  fNameSrc : String;
  fNameDst : String;

begin

  fNameSrc:=ExtractFilePath(ExpandConstant('{srcexe}'))+'REG.DAT';

  if not FileExists(fNameSrc) then begin
    MsgBox('Datei REG.DAT nicht gefunden unter: ' +fNameSrc, mbInformation, MB_OK);
  end
  else begin

    fNameDst:=ExpandConstant('{app}')+'\REG.DAT';
    
    if not FileExists(fNameDst) then begin
    
      if not FileCopy(fNameSrc, fNameDst, false) then begin

        MsgBox('Datei REG.DAT konnte nicht kopiert werden von "'+fNameSrc+'" nach "'+fNameDst , mbInformation, MB_OK);
        
      end;
    end;
  end;
end;