Вопрос InitializeSetup выход через false через условие

cspp

Новичок
решил сделать запрет на установку в виртуалку. как правильно перечислить несколько условий,
т.е типа array а не писать одно и тоже несколько раз. выходит что оно корректно определяет false , выдает сообщение но там где ботва выходит true и установка прдолжается ....

Код:
function InitializeSetup: Boolean;
begin

  Result := not IsAppRunning('vmtoolsd.exe');
  if not Result then  
  MsgBox('Установка на виртуальную машину невозможна.', mbCriticalError, MB_OK); 

  Result := not IsAppRunning('VBoxTray.exe');
  if not Result then
  MsgBox('Установка на виртуальную машину невозможна.', mbCriticalError, MB_OK);  


   if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
   Result:=True; 
end;
 

Krinkels

Он где то тут
Администратор
Код:
if 1 = 1 then
    begin
        MsgBox('Один равен одному.', mbCriticalError, MB_OK);
        Result:=True;
    end
    else
    if 1 <> 2 then
    begin
        MsgBox('Один неравен двум', mbCriticalError, MB_OK);
        Result:=False;
    end;
Как то так
 
  • Like
Реакции: cspp
Сверху