Inno-Setup - Anleitung zum kopieren einer Datei, bevor Sie das setup starten?

Brauche ich zum kopieren einer Datei zu einem Ordner, bevor Inno Setup startet oder vor dem "Verzeichnis wählen" Seite. Ich möchte diese Datei kopiert werden, aus dem installer und nicht aus einer externen Quelle, falls jemand ein Beispiel geben, bitte.

Bin mit diesem code:

function NextButtonClick(PageID: Integer): Boolean;
begin
  Result := True;
  if (PageId = wpWelcome) then
  begin
    FileCopy(
      ExpandConstant('file.exe'),
      ExpandConstant('{reg:HKCU\SOFTWARE\XXX,InstallPath}\file.exe'), false);
  end;
end;

Ich hoffe, dass jemand eine bessere Idee mit einem Beispiel.
Dank der von nun an.

Beachten Sie, dass es in der Regel verpönt, um änderungen an dem system des Benutzers, bevor Sie klicken Sie auf die Letzte Nächsten, um tatsächlich starten Sie die Installation-nachdem alle bis zu diesem Zeitpunkt könnten Sie immer noch wollen, um abzubrechen. Es ist auch verpönt zu verwenden, oder ändern Sie die Einstellungen in HKCU, da Sie möglicherweise nicht für den Benutzer, den Sie erwarten.

InformationsquelleAutor Dielo | 2012-11-24

  1. 14

    Extrahieren einer Datei aus dem setup-Archiv alle Zeit, die Sie benötigen, müssen Sie die ExtractTemporaryFile Verfahren. Dieses Verfahren extrahiert die Datei aus der [Files] Abschnitt in ein temporäres Verzeichnis die setup-Anwendung, die Sie finden können, auf den angegebenen Pfad, indem Sie die {tmp} konstant. Dann wirst du nur kopieren Sie solche extrahierte Datei in ein Zielverzeichnis, von dort durch den ausbau der genannten Konstanten.

    Wenn Sie wollen, etwas zu tun, wenn das setup wird initialisiert wurde, aber bevor der wizard form erstellt wurde, verwenden Sie die InitializeSetup Ereignis-Funktion. Beachten Sie, dass Sie können sogar beenden Sie das setup aus, dass die Funktion ohne zu sehen, die wizard-Formular-z.B. wenn die Datei, die Sie gehen zu kopieren ist wichtig, dass viel. Hier ist ein Beispiel code, aber zuerst werfen Sie einen Blick auf die kommentierte version es für einige details:

    [Code]
function InitializeSetup: Boolean;
begin
  Result := True;
  ExtractTemporaryFile('File.exe');
  if FileCopy(ExpandConstant('{tmp}\File.exe'), 
    ExpandConstant('{reg:HKCU\SOFTWARE\XXX,InstallPath}\File.exe'), False) 
  then
    MsgBox('File copying succeeded!', mbInformation, MB_OK)
  else
    MsgBox('File copying failed!', mbError, MB_OK)  
end;

    InformationsquelleAutor TLama

  2. 4

    Müssen Sie Extrahieren Sie die Datei zuerst in ein temporäres Verzeichnis, kopieren Sie es auf, wo Sie wollen. So etwas wie dies funktionieren sollte:

    ; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{5820E516-8DD7-4481-A016-63D3F00438C8}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, "&", "&&")}}"; Flags: nowait postinstall skipifsilent


[Code]
function InitializeSetup: Boolean;
var
  S: AnsiString;
begin
  //Show the contents of Readme.txt (non Unicode) in a message box
  log('Before Extract');
  ExtractTemporaryFile('myprog.exe');
  log('Before FileCopy. Dest:' + ExpandConstant('{reg:HKCU\SOFTWARE\XXX,InstallPath}\file.exe'));
  log('temp: ' + ExpandConstant('{tmp}\myprog.exe'));
  FileCopy(ExpandConstant('{tmp}\myprog.exe'), ExpandConstant('{reg:HKCU\SOFTWARE\XXX,InstallPath}\file.exe'), false);
  log('After FileCopy');
  Result := True;
end;

    InformationsquelleAutor mirtheil

Schreibe einen Kommentar