Re: Fragen zu Innos Setup Handling?
Zitat:
Zitat:
Zitat:
|
Re: Fragen zu Innos Setup Handling?
Hallo, ich habe jetzt mangels Zeit :cry: 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" = :roll: :zwinker: )
http://www.istool.org/ mfg MCeddy |
Re: Fragen zu Innos Setup Handling?
…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? |
Re: Fragen zu Innos Setup Handling?
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? :gruebel: 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).
|
Re: Fragen zu Innos Setup Handling?
[Run]
Filename: "{app}\gp.exe"; Flags: runhidden Damit dürfte es funktionieren. :) |
Re: Fragen zu Innos Setup Handling?
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:
Nur erscheint keine MsgBox. Und wie man die Suche nahc einer Datei einbaut, weiß ich auch nicht.
[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; Kann mir das bitte jemand programmieren? Würde mich freuen. :) |
Re: Fragen zu Innos Setup Handling?
Du bist der Erste, der immer wieder seinen alten Thread rausholt. Finde ich gut. :thumb: 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:
Was die Datei angeht:
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;
Code:
Wenn das auch schon beim Start geprüft werden soll, dann musst du diese Bedingungen mit in "InitializeSetup" bei deinem
Result :=
(RegQueryStringValue(HKLM,'...','DIR',TempPath)) and (TempPath <> '') and (FileExists(TempPath + '\DeineDatei.dat'));
Code:
anhängen. Aber so, dass es Sinn ergibt. ;)
(RegQueryStringValue(HKEY_LOCAL_MACHINE,'...','Version',szSourcePath)) and
(szSourcePath <> ''); |
Re: Fragen zu Innos Setup Handling?
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:
Was habe ich falsch gemacht?
[ 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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:16 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz