Advertisement
TLama

Untitled

Jan 23rd, 2015
412
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.51 KB | None | 0 0
  1. [Code]
  2. var
  3.   // dotNetBool is not descriptive
  4.   DotNetInstalled: Boolean;
  5.  
  6. function InitializeSetup: Boolean;
  7. begin
  8.   // store the detected state
  9.   DotNetInstalled := RegKeyExists(HKLM, 'SOFTWARE\Microsoft\.NETFramework\policy\v4.0');
  10.   // continue if .NET is installed, or (if not) the user agreed to continue
  11.   Result := DotNetInstalled or (MsgBox('.NET not installed. Continue ?', mbConfirmation, MB_YESNO) = IDYES);
  12. end;
  13.  
  14. function IsDotNetInstalled: Boolean;
  15. begin
  16.   Result := DotNetInstalled;
  17. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement