sd123xpwn

Untitled

Nov 1st, 2018
178
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.18 KB | None | 0 0
  1. [Components]
  2. Name: "Component1"; Description: "Установка Visual C++ для Visual Studio 2010 x32"; Types: viborochnaya; Check: FrameworkIsNotInstalled1
  3. Name: "Component2"; Description: "Установка Visual C++ для Visual Studio 2010 x64"; Types: viborochnaya; Check: IsWin64() and FrameworkIsNotInstalled2
  4.  
  5. [Run]
  6. Filename: {app}\Redist\vcredist_x86.exe; StatusMsg: Установка Visual C++ для Visual Studio 2010 x32; Components: Component1; Flags: shellexec waituntilterminated; Parameters: "/Q";
  7. Filename: {app}\Redist\vcredist_x64.exe; StatusMsg: Установка Visual C++ для Visual Studio 2010 x64; Components: Component2; Flags: shellexec waituntilterminated; Parameters: "/Q";
  8.  
  9. [code]
  10.  
  11. function FrameworkIsNotInstalled1: Boolean;
  12. begin
  13.   Result := not RegKeyExists(HKLM32,'SOFTWARE\Microsoft\VisualStudio\10.0\VC\VCRedist\x86\');
  14.   begin
  15.   if IsWin64 then
  16.   Result := not RegKeyExists(HKLM,'SOFTWARE\Wow6432Node\Microsoft\VisualStudio\10.0\VC\VCRedist\x86\');
  17.   end;
  18. end;
  19.  
  20. function FrameworkIsNotInstalled2: Boolean;
  21.  begin
  22.  if IsWin64 then
  23.   Result := not RegKeyExists(HKLM,'SOFTWARE\Wow6432Node\Microsoft\VisualStudio\10.0\VC\VCRedist\x64\');
  24. end;
Advertisement
Add Comment
Please, Sign In to add comment