Advertisement
Guest User

Untitled

a guest
Oct 5th, 2016
231
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 2.09 KB | None | 0 0
  1. function InitializeSetup: Boolean;
  2. var
  3.   FileName: string;
  4. begin
  5.   try
  6.     if IsProcessorFeaturePresent(PF_XMMI64_INSTRUCTIONS_AVAILABLE) <> 0 then
  7.     begin
  8.       Result := True;
  9.       {Version 3.3.x or below}
  10.       if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\vvramd', 'ImagePath', FileName) then
  11.       begin
  12.         MsgBox('Found an older version in ' + ExtractFileDir(FileName) + DoubleCrLf +
  13.           'You must uninstall it before you install this update. Please do the following: ' + DoubleCrLf +
  14.           '* Backup your configuration to a XML file.' + CrLf +
  15.           '* Uninstall the currently installed version.' + CrLf +
  16.           '* Restart the computer and launch this installer again.', mbInformation, MB_OK);
  17.         Result := False;
  18.       end;
  19.       {Version 3.4 or above}
  20.       if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\SPVVEngine', 'ImagePath', FileName) then
  21.       begin
  22.         MsgBox('Found an older version of the RAM Disk installed on your computer. ' + DoubleCrLf +
  23.           'You must uninstall it before you install this update. Please do the following: ' + DoubleCrLf +
  24.           '* Backup your configuration to a XML file.' + CrLf +
  25.           '* Uninstall the currently installed version.' + CrLf +
  26.           '* Restart the computer and launch this installer again.', mbInformation, MB_OK);
  27.         Result := False;
  28.       end;
  29.       {Check if CCleaner is installed}
  30.       if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Piriform\CCleaner') then
  31.       begin
  32.         MsgBox('The installer has found CCleaner on your computer. ' + DoubleCrLf +
  33.           'There are known issues with CCleaner and the RAM Disk software. ' + DoubleCrLf +
  34.           'Do not use image files or image-based RAM disks as they may be corrupted. Volatile RAM disks are NOT affected and can be used freely.', mbInformation, MB_OK);
  35.       end;
  36.     end
  37.     else
  38.       RaiseException('No SSE2 detected');
  39.   except
  40.     MsgBox('Your computer does not support the SSE2 instruction set.', mbError, MB_OK);
  41.     Result := False;
  42.   end;
  43. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement