Delphi7-Hilfe (für Delphi 2005) - Version 1.2

[FriFra]

Zitat von Insider2004:

Könnte man das auch für D6 machen? Ich würde gerne die D7-Hilfe von D6 aus aufrufen.

Ich hab mal das Setup angepasst ... Ich weiß allerdings nicht, ob die dll unter Delphi6 richtig läuft
Eigentlich halte ich DAS ja für Quatsch, aber es kann ja jeder machen was er will

Du kannst ja mal kurz schreiben ob es wirklich auch unter Delphi6 funktioniert

[Insider2004]

[FriFra]

Kam diese Meldung nach dem erfolgreichen Setup?

Wie dem auch sei, ich hab noch ein paar Zeilen aus dem Setup (für die Sonderversion für Delphi6) rausgeschmissen... teste es nochmal

[n0b0dy]

ich habe den gleichen fehler wie insider ....

aber mein d2005 ist auch nicht in diesem standardordner installiert....

[FriFra]

Zitat von n0b0dy:

ich habe den gleichen fehler wie insider ....

aber mein d2005 ist auch nicht in diesem standardordner installiert....

Der Wert stammt aus der Registry... Dann ist wohl das Delphi Setup sch...

Wurde das Setup ansonsten wenigstens korrekt ausgeführt, oder gibts danach ein "rollback"?

[n0b0dy]

nein wurde korrekt ausgeführt...
aber ich verstehe nicht wie so ein pfad in der registry stehen kann. ich hab vor kurzen das system neu gemacht und danach sofort in den andern ordner installiert....


kann ich das irgendwie trotzdem ändern? sagst du mal bitte welcher registry key ausgelesen wird, dann kan ich den manuell anpassen.

[FriFra]

Da muss er aber stehen... Es wurde nichts "hardgecodet"

Auszug aus meinem InnoSetupScript:

Code:

#define BdsApp "bds.exe"
#expr BdsApp = ReadReg(HKEY_CURRENT_USER, "Software\Borland\BDS\3.0", "App", BdsApp)

[n0b0dy]

hm seltsam. unter diesem angegebenen registry key steht aber mein richtiger pfad:

C:\Programme\Borland\Delphi2005\Bin\bds.exe

[FriFra]

Zitat von n0b0dy:

hm seltsam. unter diesem angegebenen registry key steht aber mein richtiger pfad:

Das ist in der Tat seltsam...
Der Aufruf erfolgt schliesslich nur mit der Variable aus der Registry:

Code:

[Run]
; nach der Installation ausführen
Filename: {#BdsApp}; Description: {cm:LaunchNow}; WorkingDir: {#BdsRootDir}; Flags: postinstall nowait skipifsilent

Ich hab jetzt aber mal noch das einlesen der Werte optimiert:

Code:

#define BdsApp "bds.exe"
#if FileExists(ReadReg(HKEY_CURRENT_USER, "Software\Borland\BDS\3.0", "App", BdsApp)) != 0
#expr BdsApp = ReadReg(HKEY_CURRENT_USER, "Software\Borland\BDS\3.0", "App", BdsApp)
#endif

Wenn nun also die Datei nicht existiert, wird "blind" bds aufgerufen, was meistens auch klappen sollte

[Insider2004]

Delphi6 steht unter c:\programme\borland\delphi6\bin\delphi32.exe