Einzelnen Beitrag anzeigen
Alt 15.02.2004, 03:47   #2
Yoghurt
Jr. Member
 
Benutzerbild von Yoghurt
 
Registriert seit: 28.12.2000
Alter: 48
Beiträge: 49


Yoghurt eine Nachricht über Skype™ schicken
Standard

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.
____________________________________
lg Yoghurt

--
Rettet unsere Wälder, esst mehr Biber!
Yoghurt ist offline   Mit Zitat antworten