innonewbie
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Function GetInstallDir(Path: String ): String; begin RegQueryStringValue(HKLM, 'SOFTWARE\прога', 'InstallPath', Path);//Какой ключ реестра ищет ... Result := Path; end; function InitializeSetup(): Boolean; begin if RegValueExists(HKLM, 'SOFTWARE\прога', 'InstallPath') then begin //MsgBox('Прога найдена! Можете продолжить установку', mbConfirmation, MB_OK); Result:= true; end else begin MsgBox(прога не найдена! Установка будет прекращена', mbError, MB_OK) Result:=false end; end; |