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

[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