Bist du sicher, dass das stimmt, was du da schreibst? :/ Ich habe den kompletten Code, genauso wie du ihn geschrieben hast übernommen, aber er geht nicht. Der Pfad zur dem Reg-Schlüssel stimmt aber!! Ich habs auch mit anderen Sachen in "Software" probiert, geht trotzdem nicht. Richtig geschrieben habe ich aber alles.
Hier mein kompletter Code:
[code=delphi][Setup]
AppName=TPR Patch Pack Build 62 German Edition
AppVerName=TPR Patch Pack Build 62 German Edition
DefaultDirName=C:\Knights and Merchants
InfoAfterFile=C:\Eigene Dateien\Patch Pack Quellcode\Docs DE\text.txt
Compression=lzma
SolidCompression=yes
uninstallable=no
[Languages]
Name: "de"; MessagesFile: "compiler:Languages\German.isl"
[Files]
Source: "C:\Eigene Dateien\Patch Pack Quellcode\PP1 DE\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs
[Run]
Filename: "{app}\KM_TPR.exe"; Description: "Knights and Merchants jetzt starten"; Flags: nowait postinstall skipifsilent
Filename: "{app}\Patch_Pack_Readme.htm"; Description: "Liesmich-Datei lesen (empfohlen)"; Flags: nowait postinstall skipifsilent
Code:
function InitializeSetup: boolean;
var
szSourcePath : string;
begin
Result := (RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\JOYMANIA Entertainment\KnightsandMerchants TPR',
'SourcePath',szSourcePath)) and (szSourcePath <> '');
if(Result) then MsgBox(szSourcePath,mbInformation,MB_OK);
end;