Inno Setup und Pascal

[Potassium]

hi leute
ich will für mein Programm SPHINKS ein update anbieten in dem nur die exe und sonsr nichts enthalten ist. nun zu meinem prob. das installproggi soll nachsehen ob schon eine SPHINKS.exe vorhanden ist. nur wenn das der fall ist, soll es fortfahren wenn nicht dann abbrechen.
nur das prob ich kann kein pascal und das programm benutzt das (laut hilfe). kann mir da wer helfen? thx

[Yoghurt]

Folgenden Code in das Setup Script einfügen...

[code]

function InitializeSetup(): Boolean;
begin
  Result := FileExists('C:\Programme\SPHINKS\SPHINKS.EXE');
  if Result = False then
    MsgBox('Script.InitializeSetup:' #13#13 'Kein SPRINKS gefunden.',
            mbInformation, MB_OK);
end;

Falls du den Installationspfad aus der Registry auslesen musst...

[code]

function InitializeSetup(): Boolean;
var
  FilePath : String;
begin
  FilePath := '';
  Result := RegQueryStringValue(HKLM,'Software\Dein Firma\SPHRINKS',
             'InstallPath', FilePath);
  Result := FileExists(FilePath + 'SPHINKS.EXE');
  if Result = False then
    MsgBox('Script.InitializeSetup:' #13#13 'Kein SPRINKS gefunden.',
            mbInformation, MB_OK);
end;

Sollte funktionieren, bin aber leider nicht zum Testen gekommen. Also wenn was nicht geht, melden, dann schau ichs mir nochmal durch und schick dir ein fertiges Script.

[Potassium]

vielen dank. ich wede es sobald ein wenig zeit ist probieren.

DANKE

[Potassium]

funktioniert soweit mal. ABER
wie kann ich disem programm sagen er die variblae Filepath auch als DestDir benutzen kann? er erstellt nämlich einfach immer ein verzeichnis FilePath im system32 verzeichnis. ich komm ned weiter

[Yoghurt]

Das ist kein Programm

[code]
DefaultDirName={code:GetInstallPath|{'C:\Programme \Sprinks'}}

function GetInstallPath(Default: String): String; 
begin
  Result := RegQueryStringValue(HKLM,'Software\Dein Firma\SPHRINKS',
             'InstallPath', FilePath);
end;

function InitializeSetup(): Boolean;
var
  FilePath : String;
begin
  FilePath := '';
  Result := RegQueryStringValue(HKLM,'Software\Dein Firma\SPHRINKS',
             'InstallPath', FilePath);
  Result := FileExists(FilePath + 'SPHINKS.EXE');
  if Result = False then
    MsgBox('Script.InitializeSetup:' #13#13 'Kein SPRINKS gefunden.',
            mbInformation, MB_OK);
end;

Bin mir nur nicht sicher ob die ' bei {'C:\Programme\Sprinks'} dazugehören oder nicht. Musst du ausprobieren.