Einzelnen Beitrag anzeigen

zeras
Online

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.633 Beiträge
 
Delphi 12 Athens
 
#6

AW: mit Innosetup Dateiattribute ändern

  Alt 4. Jul 2010, 15:14
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;
Matthias
  Mit Zitat antworten Zitat