WCM Forum - Inno Setup und Pascal

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - Inno Setup und Pascal (http://www.wcm.at/forum/showthread.php?t=123045)

Potassium

23.01.2004 23:20

Inno Setup und Pascal

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

15.02.2004 03:47

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

[code]

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]

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

15.02.2004 11:07

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

DANKE :)

Potassium

17.02.2004 18:30

funktioniert soweit mal. ABER
wie kann ich disem :mad2: 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 :heul:

Yoghurt

20.02.2004 15:52

Das ist kein :mad: Programm ;)

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

Code:



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.

Alle Zeitangaben in WEZ +2. Es ist jetzt 12:56 Uhr.