Ветеран
Сообщения: 1640
Благодарности: 536
|
Профиль
|
Отправить PM
| Цитировать
Цитата Devils Night:
Как сделать так чтобы при установки определялась версия Net.Framework 3.5, если он не установлен, то сначало устанавливался Net.Framework 3.5 из папки Others, а потом продолжалася установка, если установлен то продолжал установку? »
|
Код: 
function netfw35(): Boolean;
begin
if ( RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5') ) then Result := True else Result := False;
end;
Function InitializeSetup: Boolean;
var res, i : Integer;
Begin
result:=true;//шоп не закрылся инсталлер
if (not netfw35) then begin
MsgBox('Net.Framework 3.5 не найден, нажмите ОК для установки', mbInformation, MB_OK);
Exec(ExpandConstant('{src}\Others\dotnet35.exe'), ' /q /passive /norestart',ExpandConstant('{src}\Others\'),SW_show, ewWaitUntilTerminated, res);
result:=true;//шоп не закрылся инсталлер
end;//if (not netfw35)
end; //InitializeSetup
|
-------
Хороший установщик тот, которого не замечаешь
Оформление в инно пустая трата времени: толку мало, головняка много, а ошибок истчо больше!
Последний раз редактировалось R.i.m.s.k.y., 06-12-2011 в 08:46.
Отправлено: 08:12, 06-12-2011
| #331
|