Innosetup zwei Installationspfade und nach Abschluss externes Programm mit Adminrecht

[Rollo62]

Ungetestet

Delphi-Quellcode:

[Code]
var
  DataDirPage: TInputDirWizardPage;
  ServerDirPage: TInputDirWizardPage;
  ProgramDirPage: TInputDirWizardPage;

procedure InitializeWizard;
begin
  // Seite für das Programmverzeichnis
  ProgramDirPage := CreateInputDirPage(wpSelectDir,
    'Programmverzeichnis auswählen',
    'Bitte wählen Sie das Verzeichnis für das Programm aus:',
    '', False, '');
  ProgramDirPage.Add('');
  ProgramDirPage.Values[0] := ExpandConstant('{pf}\MeinProgramm');

  // Seite für das Datenverzeichnis
  DataDirPage := CreateInputDirPage(ProgramDirPage.ID + 1,
    'Datenverzeichnis auswählen',
    'Bitte wählen Sie das Verzeichnis für die Daten aus:',
    '', False, '');
  DataDirPage.Add('');
  DataDirPage.Values[0] := ExpandConstant('{commonappdata}\MeinProgramm\Data');

  // Seite für das Serververzeichnis
  ServerDirPage := CreateInputDirPage(DataDirPage.ID + 1,
    'Serververzeichnis auswählen',
    'Bitte wählen Sie das Verzeichnis für den Datenserver aus:',
    '', False, '');
  ServerDirPage.Add('');
  ServerDirPage.Values[0] := ExpandConstant('{pf}\MeinProgramm\Server');
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    // Hier kannst du die ausgewählten Pfade verwenden
    ExpandConstant('{app}'); // Falls benötigt
  end;
end;