Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Habetdin


Автор проектов


Сообщения: 3650
Благодарности: 1499

Профиль | Сайт | Отправить PM | Цитировать


Arsi000, как-то так
Код: Выделить весь код
[Files]
Source: {src}\Content - Installer Data\*; DestDir: "{reg:HKLM\SOFTWARE\My Company\My Program,InstallPath|{pf}\My Program}"; Flags: skipifsourcedoesntexist ignoreversion external

[code]
function DetectInstallRegKey: Boolean;
var
  Path: string;
begin
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\My Company\My Program', 'InstallPath', Path) then
    if Path <> '' then
      Result:= True
    else
      Result:= False;
end;

function InitializeSetup(): Boolean;
begin
  Result:= DetectInstallRegKey;
  if Result = False then
  MsgBox('На вашем компьютере не найдена программа My Program.' + #13#10
         'Установка дополнения к My Program невозможна!', mbInformation, MB_OK);
end;

-------
Рекомендую: $25 на тест виртуального сервера (VPS) за регистрацию по ссылке

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:01, 13-04-2011 | #1317