nik1967
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Setup] AppName=NETFramewrok AppVerName=NETFramewrok DefaultDirName={pf}\NETFramewrok DisableStartupPrompt=true InternalCompressLevel=none Compression=none [Code] function InitializeSetup(): Boolean; var ErrorCode: Integer; NetFrameWorkInstalled : Boolean; Result1 : Boolean; begin NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v3.0'); if NetFrameWorkInstalled =true then begin Result := true; end; if NetFrameWorkInstalled = false then begin NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v3.5'); if NetFrameWorkInstalled =true then begin Result := true; end; if NetFrameWorkInstalled =false then begin Result1 := MsgBox('This setup requires the .NET Framework. Please download and install the .NET Framework and run this setup again. Do you want to download the framwork now?', mbConfirmation, MB_YESNO) = idYes; if Result1 =false then begin Result:=false; end else begin Result:=false; ShellExec('open', 'http://download.microsoft.com/download/a/a/c/aac39226-8825-44ce-90e3-bf8203e74006/dotnetfx.exe','','',SW_SHOWNORMAL,ewNoWait,ErrorCode); end; end; end; end; | Всего записей: 1076 | Зарегистр. 11-10-2006 | Отправлено: 13:17 16-03-2010 | Исправлено: nik1967, 13:27 16-03-2010 |
|