Fragen zu Innos Setup Handling?

[MathiasSimmack]

Zitat von The Knight:

Sagen wir es so: darauf wäre ich NIE gekommen und so sahen meine eigenen Versuche auch nicht aus.

Ich möchte nicht, dass du mich falsch verstehst, aber was ich bei solchen Sachen immer mache: Ich gucke nach, wie es andere gemacht haben. Und zu irgendwas müssen die Beispieldateien usw. ja gut sein.

Zitat:

Ich danke dir für deine Kooperation. Meine fertigen Patches werden von 100en Usern benutzt und du kannst dich freuen, einen Teil dazu beigetragen zu haben.

Gern geschehen.

Zitat:

Übrigens gutes Inno-Handbuch, was du da angelegt hast, es hat mir einiges gebracht!

Der 10-Euro-Schein für diese selbstverständlich nicht vorher verabredete Lobeshymne ist unterwegs.

[MCeddy]

Hallo, ich habe jetzt mangels Zeit nicht alles gelesen... Ich nehme dazu immer noch "ISTool", damit kann man auf einfache Weise seine Inno-Scripts erstellen und muss nicht mit der Hand im Script wühlen (da passt der Spruch wieder, den ich vorige Woche zu hören bekommen habe: "Programmierer sind faul" = )

http://www.istool.org/

mfg

MCeddy

[The Knight]

…ich möchte bei meinem Installer am Ende eine Datei ausführen (exe). Das gehört in die [Run] Section, ich weiß. Aber der Installer MUSS die exe ausführen, es darf am Ende nicht da stehen, wenn das Setup abgeschlossen ist, ob die exe ausgeführt werden soll oder nicht. Das soll der Inno-Installer automatisch machen. Besser gesagt er MUSS.

Wie geht das?

[MathiasSimmack]

Und? Du willst vermutlich wissen, wie. War [InstallRun] das mit der Option auf der letzten Seite, oder ließen sich die Programme nicht auch so starten? Na, wenn´s nicht geht, dann musst du per [Code] aktiv werden und dein Programm bspw. gleich nach der Installation der Dateien ausführen lassen (s. Hilfe -> CurStepChanged -> ssPostInstall, als eine Möglichkeit).

[The Knight]

[Run]
Filename: "{app}\gp.exe"; Flags: runhidden

Damit dürfte es funktionieren.

[The Knight]

Ich möchte meinem Patch-Setup einer Kontrolle unterziehen. Er soll einen Registry-Pfad/Wert suchen und ein bestimmte Datei. Wenn eines von beiden NICHT gefunden wurde, soll eine Messagebox erscheinen und dann das Setup abbrechen.

Ich habe es bisher hinbekommen mit den Codeschnippseln hier, dass der Installer abbricht, wenn der reg-Pfad nicht gefundne wurde:

Code:

[b] [ Code ][/b]
function InitializeSetup: boolean;
var
  szSourcePath : string;
begin
  Result := (RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\JOYMANIA Entertainment\KnightsandMerchants TPR',
    'Version',szSourcePath)) and (szSourcePath <> '');
end;

function GetRegValue(DefaultValue: string): string;
begin
  // wenn nicht gefunden, ...
  if(not RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\JOYMANIA Entertainment\KnightsandMerchants TPR','DIR',Result)) then
  // ... dann den Pfad %programme% zurückliefern
  Result := ExpandConstant(DefaultValue);
end;

Nur erscheint keine MsgBox. Und wie man die Suche nahc einer Datei einbaut, weiß ich auch nicht.

Kann mir das bitte jemand programmieren? Würde mich freuen.

[MathiasSimmack]

Du bist der Erste, der immer wieder seinen alten Thread rausholt. Finde ich gut. Nebenbei verweise ich dich aber mal an das deutsche Inno Setup-Forum. Ich rate jetzt einfach mal was deine Probleme angeht. Eine MessageBox wirst du nur sehen, wenn du sie selbst einfügst. Ich nehme mal an, du willst sie anzeigen, wenn der Registryschlüssel nicht gefunden wurde. Dann also:

Code:

function InitializeSetup: boolean;
begin
  Result := { ... } // was du schon im Code hast

  if(not Result) then
    MsgBox('Auf Grund schlechter Sicht wird das Setup abgebrochen.',
      mbError,MB_OK);
end;

Was die Datei angeht:

Code:

Result :=
  (RegQueryStringValue(HKLM,'...','DIR',TempPath)) and
  (TempPath <> '') and
  (FileExists(TempPath + '\DeineDatei.dat'));

Wenn das auch schon beim Start geprüft werden soll, dann musst du diese Bedingungen mit in "InitializeSetup" bei deinem

Code:

  (RegQueryStringValue(HKEY_LOCAL_MACHINE,'...','Version',szSourcePath)) and
  (szSourcePath <> '');

anhängen. Aber so, dass es Sinn ergibt.

[The Knight]

Hoh, super! Hab mich gleich mal dort registriert, aber hier bekomme ich doch auch guten Support.

Ich würde sagen, es geht. Zumindest der Teil mit der Registry-Suche. Aber mit der Angabe des Pfades zu der Datei habe ich noch meine Probleme. Es handelt sich da um die Datei C:\1.txt:

Code:

[ Code ]
// Code für Reg.-Pfad- und Dateisuche
function InitializeSetup: boolean;
var
  TempPath : string;
begin
  Result := (RegQueryStringValue(HKLM,'Software\JOYMANIA Entertainment\KnightsandMerchants TPR','Version',TempPath)) and (TempPath <> '') and (FileExists(TempPath + 'C:\1.txt'));
  if(not Result) then
    MsgBox('Auf Grund schlechter Sicht wird das Setup abgebrochen.',
      mbError,MB_OK);
end;

Was habe ich falsch gemacht?