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

[timsen96]

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 möchte zusätzliche Dateien zu einem existierenden Programm mit Hilfe des Setups hinzufügen.

[haentschman]

Zitat:

Ich möchte zusätzliche Dateien zu einem existierenden Programm mit Hilfe des Setups hinzufügen.

Ist das nur ein Setup für die Hilfedateien? Warum nicht gleich komplett?

Nachtrag:

Zitat:

Ist das nur ein Setup für die Hilfedateien?

...wo her habe ich das? Hast du geändert?

[SneakyBagels]

Zitat:

Aber dabei kommt die Fehlermeldung und es wird abgebrochen.

Wenn ich eine Packung Milch aufmache und sie umdrehe, dann läuft die Milch auch aus.
Verstehst du was ich meine?

Die Fehlermeldung, die übrigens deine eigene ist, kommt, weil Test.exe vielleicht nicht existiert?
Überlege dir eine Alternative das hier ist mehr als kompliziert. Ein Setup sollte standardisiert sein, sodass sich jeder darin heimisch fühlt.
Wenn ein Setup irgendwie komisch aussieht oder Dinge von mir will die kein anderes Setup von mir will, dann würde ich ein solches Setup direkt über den TaskManager abschießen.

[timsen96]

Es sind Zusatzdateien und andere Sprachen. Alles zusammen mit dem Programm verpacken kann ich nicht weil es auch für andere Leute sein soll und die haben es sich bereits gekauft. Aber was gibt es denn für eine alternative damit ich die Dateien in das Verzeichnis bekomme wo das Programm bereits installiert ist? Ist es nicht irgendwie möglich das man anstatt der eigenen erstellten Fehlermeldung sich den Pfad des Programms selbst suchen kann, falls es in dem Standard Verzeichnis nicht ist?

[SneakyBagels]

Zitat:

Alles zusammen mit dem Programm verpacken kann ich nicht weil es auch für andere Leute sein soll und die haben es sich bereits gekauft.

Warum nicht? Das wäre dann ein ganz normales Update.

Wenn du das so realisierst wie du es hier gerade vorhast, dann werden das deine letzten Kunden gewesen sein.

[haentschman]

Zitat:

Es sind Zusatzdateien und andere Sprachen.

Sind die für alle oder "lizenzabhängig"?

[timsen96]

Sind für alle, nur ich kann ja kein komplettes Programm was Geld kostet zusammen Anbieten, weil es könnten dann ja auch Leute bekommen die sich es nicht gekauft haben... Ich möchte es nur für die Leute, die es sich gekauft haben, deshalb das komplette anzubieten kommt nicht in Frage...

Ich habe was im Internet gefunden:
"[Code]
function NextButtonClick(PageId: Integer): Boolean;
begin
Result := True;
if (PageId = wpSelectDir) and not FileExists(ExpandConstant('C:\Programme\TestProgra mm\Test.exe')) then begin
MsgBox('YourApp does not seem to be installed in that folder. Please select the correct folder.', mbError, MB_OK);
Result := False;
exit;
end;
end;"

Aber das Problem ist, egal ob die Datei existiert oder nicht, er macht das Setup trotzdem... Hab ich da irgendwas vergessen? Oder muss bei den [Files] noch was dazu?

[SneakyBagels]

Zitat:

Sind für alle, nur ich kann ja kein komplettes Programm was Geld kostet zusammen Anbieten, weil es könnten dann ja auch Leute bekommen die sich es nicht gekauft haben..

Wenn du so denkst, dann brauchst du gar keine Software verkaufen
Wenn sich 100 Leute deine Software kaufen dann braucht nur einer dein Programm ins Netz zu stellen und schon haben es noch weit aus mehr, die nicht bezahlt haben.

[hoika]

Hallo,

Zitat:

sich den Pfad des Programms selbst suchen kann, falls es in dem Standard Verzeichnis nicht ist?

der Pfad der letzten Installation wird doch in die Registry eingetragen und ist der Pfad der nächsten (Update-) Installation.

[timsen96]

Ich habe es mal über die Registry probiert.

[Setup]
DefaultDirName={code:GetRegistryPath}

[Code]
function GetRegistryPath(DefaultPath: string): string;
begin
if not RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache ', 'TestProgramm', Result) then Result := ExpandConstant(DefaultPath);
end;

Wenn ich dann das Setup ausführe bekomme ich die Meldung: "Interner Fehler: An attempt was made to expand the "app" constant before it was initialized."