admin/mirror-processhacker
1
0
Fork 0
mirror of https://github.com/mirror/processhacker synced 2026-06-08 16:03:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Installer: Changed .NET Framework not installed error message and now setup exits if .NET Framework is not installed.

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/processhacker/code@1154 21ef857c-d57f-4fe0-8362-d861dc6d29cd
This commit is contained in:
xhmikosr
2009-04-26 08:35:26 +00:00
parent c35268b34e
commit 81a734331b
1 changed files with 12 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
trunk/ProcessHacker/Build/Installer/Process_Hacker_installer.iss
+12 -15
View File
@@ -294,12 +294,22 @@ var
NetFrameWorkInstalled : Boolean;
Result1 : Boolean;
begin
NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v2.0');
// Create a mutex for the installer and if it's already running then expose a message and stop installation
if CheckForMutexes(installer_mutex_name) then begin
if not WizardSilent() then
MsgBox(ExpandConstant('{cm:msg_SetupIsRunningWarningInstall}'), mbError, MB_OK);
Result := False;
end
else begin
CreateMutex(installer_mutex_name);
end;
NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v2.0');
if NetFrameWorkInstalled then begin
Result := True;
end
else begin
Result1 := MsgBox(ExpandConstant('{cm:msg_asknetdown}'), mbError, MB_YESNO or MB_DEFBUTTON1) = IDYES;
Result1 := MsgBox(ExpandConstant('{cm:msg_asknetdown}'), mbCriticalError, MB_YESNO or MB_DEFBUTTON1) = IDYES;
if Result1 =False then begin
Result:=False;
end
@@ -307,19 +317,6 @@ begin
Result:=False;
ShellExec('open', 'http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe',
'','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
begin
// Create a mutex for the installer and if it's already running then expose a message and stop installation
Result := True;
if CheckForMutexes(installer_mutex_name) then begin
if not WizardSilent() then
MsgBox(ExpandConstant('{cm:msg_SetupIsRunningWarningInstall}'), mbError, MB_OK);
Result := False;
end
else begin
CreateMutex(installer_mutex_name);
end;
end;
end;