[saurn]

habib2302, если мне не изменяет память, в оригинале у Johny777 это код выглядит несколько иначе:

читать дальше »

Код:

function GetUninstallPath(const AppIds: array of String): array of String;
var
  StringList: TStringList;
  i, Len: Integer;
  Buff: String;
begin
  for i := 0 to GetArrayLength(AppIds)-1 do
  begin
    Buff := RemoveQuotes(ExpandConstant('{reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + AppIds[i] + '_is1,UninstallString|}'));
    if Buff <> '' then
    begin
      Len := GetArrayLength(Result);
      SetArrayLength(Result, Len+1);
      Result[Len] := Buff;
    end;
  end;
end;


procedure UninstallApps(const UninstallPathes: array of String);
var
  pi: _PROCESS_INFORMATION;
  si: _STARTUPINFO;
  i: Integer;
begin
  for i := 0 to GetArrayLength(UninstallPathes)-1 do
  begin
    si.cb := SizeOf(si);
    si.dwFlags := STARTF_USESHOWWINDOW;
    si.wShowWindow := SW_SHOWNORMAL;
    #ifdef UNICODE
      if not CreateProcess('', PAnsiChar(UninstallPathes[i]), 0, 0, False, NORMAL_PRIORITY_CLASS, '', '', si, pi) then
    #else
      if not CreateProcess('', PChar(UninstallPathes[i]), 0, 0, False, NORMAL_PRIORITY_CLASS, '', '', si, pi) then
    #endif
    begin
      MsgBox(SysErrorMessage(DLLGetLastError), mbCriticalError, MB_OK);
      Exit;
    end;
    try
      while WaitForSingleObject(pi.hProcess, INFINITE) <> WAIT_OBJECT_0 do Application.ProcessMessages;
    finally
    CloseHandle(pi.hProcess);
    CloseHandle(pi.hThread);
    end;
  end;
end;

function InitializeSetup:boolean;
var
  i, Len: Integer;
  uArray: array of String;
begin
  uArray := GetUninstallPath( ['{#SetupSetting("AppID")}', APPID_AIDA_EXTREME, APPID_AIDA_BUISNES, APPID_AIDA_ENGINEER] );
  Len := GetArrayLength(uArray);
  Result := Len = 0;
  if not Result then if MsgBox('Перед установкой необходимо удалить все старые версии приложения, вызвать программы удаления сейчас?', mbError, MB_YESNO) = IDYES then
  begin
    UninstallApps(uArray);
    Result := InitializeSetup();
  end;
end;

А вот это вот что:

Код:

if MsgBox('Перед установкой необходимо удалить предыдущую версию приложения. Продолжить?', mbError, MB_YESNO) = IDNO then Exit;

Зачем MsgBox вызывается в самом начале функции без каких либо условий, тогда когда его нужно вызывать только в том случае, если результат поиска установленного приложения будет True. Естественно он будет светится всегда. Что перевернули в скрипте, переворачивайте обратно и все будет работать.

P.S.
Я понимаю, что вы не ищите легких путей, однако зачем использовать такую махину для банального удаления программы, когда можно обойтись всего несколькими строчками?