Это очень просто. Просто добавьте
[Code]
function IsApp2Installed: boolean;
begin
result := RegKeyExists(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\app2.exe');
end;
function InitializeSetup: boolean;
begin
result := IsApp2Installed;
if not result then
MsgBox('You need to install App2 before you install ThisApp. Install App2 and then run this installer again.', mbError, MB_OK);
end;
в ваш файл ISS. InitializeSetup
- это так называемая функция события , которая выполняется при запуске установщика (даже до отображения графического интерфейса мастера). Если вы вернете false
, программа установки немедленно завершит работу.