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.
