[ivsatel]

Подскажите пожалуйста как скрыть инсталлятор до окончания функции. Хочу добиться следующего:
1) Проверена версия ОС,
2) Если не найдена запись в реестре о наличии "нетфреймворк" начинается закачка,
3) после закачки установка "фреймворка",
4) А после появляется окно инсталлятора.

Код:

[_code]
function InitializeSetup(): Boolean;
var
    NetFrameWorkInstalled : Boolean;
    Result1 : Boolean;
    begin
if ((GetWindowsVersion shr 24) = 5) and (((GetWindowsVersion shr 16) and $FF) = 1) then
begin NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v2.0');
  if NetFrameWorkInstalled =true then
    begin
      Result := true;
    end;
  if NetFrameWorkInstalled = false then
    begin
      Result1 := MsgBox('Программе требуется наличие в системе .NET Framework. v2.0 Пожалуйста скачайте и установите .NET Framework после этого установка продолжится. Вы хотите скачать .NET Framework?', mbConfirmation, MB_YESNO) = idYes;
  if Result1 =false then
    begin
      Result:=false;
    end
    else
begin
      Result:=false;
      ShellExec('open', 'http://www.microsoft.com/downloads/info.aspx?na=41&SrcFamilyId=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&SrcDisplayLang=ru&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f5%2f6%2f7%2f567758a3-759e-473e-bf8f-52154438565a%2fdotnetfx.exe','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
begin
if ((GetWindowsVersion shr 24) = 6) and (((GetWindowsVersion shr 16) and $FF) = 1) then
begin NetFrameWorkInstalled := RegKeyExists(HKLM,'SOFTWARE\Microsoft\.NETFramework\policy\v4.0');
  if NetFrameWorkInstalled =true then
    begin
      Result := true;
    end;
  if NetFrameWorkInstalled = false then
    begin
      Result1 := MsgBox('Программе требуется наличие в системе .NET Framework. v4.0 Пожалуйста скачайте и установите .NET Framework после этого установка продолжится. Вы хотите скачать .NET Framework?',
      mbConfirmation, MB_YESNO) = idYes;
  if Result1 =false then
    begin
      Result:=false;
    end
    else
begin
      Result:=false;
      ShellExec('open', 'http://www.microsoft.com/downloads/info.aspx?na=41&SrcFamilyId=0A391ABD-25C1-4FC0-919F-B21F31AB88B7&SrcDisplayLang=ru&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f9%2f5%2fA%2f95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE%2fdotNetFx40_Full_x86_x64.exe','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
end;
end;
end;
end;
end;
end;
[_/code]