Einzelnen Beitrag anzeigen
Alt 20.02.2004, 15:52   #5
Yoghurt
Jr. Member
 
Benutzerbild von Yoghurt
 
Registriert seit: 28.12.2000
Alter: 48
Beiträge: 49


Yoghurt eine Nachricht über Skype™ schicken
Standard

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

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