Einzelnen Beitrag anzeigen

bcvs

Registriert seit: 16. Jun 2011
702 Beiträge
 
Delphi 12 Athens
 
#23

AW: Inno Setup Datei Existenz überprüfen vor der Installation?

  Alt 26. Mai 2017, 08:27
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;
  Mit Zitat antworten Zitat