[Dodakaedr]

Использование скина и автоопределение установки в реестре. »

Если проблема не решилась, то попробуйте таким способом:

Скрытый текст

Код:

function InitializeSetup1(): Boolean;
begin
  If RunTask('calc.exe', false) then begin
    if MsgBox('Программа установки обнаружила, что программа Калькулятор запущена в данный момент.'#13#13'Закрыть программу и продолжить установку?', mbError, mb_YesNo) = idYes then begin
      KillTask('calc.exe');
      Result := True;
    end else
      Exit;
    end;
    Result := True;
end;

function InitializeSetup2(): Boolean;
begin
  ExtractTemporaryFile('{#SKinDll}');
  ExtractTemporaryFile('{#SKin}');
  LoadSkin(ExpandConstant('{tmp}\{#SKin}'), '{#SKinIni}');
  Result:=True;
end;

function InitializeSetup3(): Boolean;
begin
 Result:= True;
 if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNamePro') then
 begin
  if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNameLight') then
  begin
   MsgBox('Программа не найдена!', mberror, mb_ok);
   Result:=False;
   exit;
  end
 end
end;

function InitializeSetup(): Boolean;
begin
  Result := InitializeSetup1();  if not Result then exit;
  Result := InitializeSetup2();  if not Result then exit;
  Result := InitializeSetup3();  if not Result then exit;
end;