Das ist das was ich habe:
"[Files]
Source: "C:\Quelldatei"; DestDir: "{app}"; Flags: ignoreversion;
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Code]
function InitializeSetup(): Boolean;
begin
if (FileExists('C:\Program Files (x86)\TestProgramm\Test.exe')) then
begin
MsgBox('Vorhanden, drücke OK um Fortzufahren', mbInformation, MB_OK);
Result := True;
end
else
begin
MsgBox('Fehler! Die Datei wurde nicht gefunden, die Installation wird abgebrochen!', mbCriticalError, MB_OK);
Result := False;
end;
end;
"
Aber dabei kommt die Fehlermeldung und es wird abgebrochen. Wie kann ich es machen damit man selbst den Pfad suchen kann?
Ich würde es so machen:
Merk die im InitializeSetup in einem Flag, ob die Test.exe existiert.
Erzeuge dir eine benutzerdefinierte Seite im InnoSetup, die den Benutzer den zusätzlichen Pfad abfragen lässt.
In ShouldSkipPage lässt du diese Zusatzseite nur anzeugen, wenn Test.exe existiert.
In NextButtonClick kannst du den gewählten Pfad einer Variablen zuweisen.
Das DestDir für den Eintrag in [Files] lässt du dir von einer Funktion liefern, die entweder das originiale {app} oder den vom Benutzer gewählten Pfad zurückgibt:
Code:
Source: "C:\Quelldatei"; DestDir: {code:GetDestDir}; Flags: ignoreversion;
Dann braucht du noch die Funktion GetDestdir:
Code:
function GetDestdir(Default: String):String;
begin
if TestExtVorhanden then
result:=UserDir
else
result:=ExpandConstant('{app}');
end;