Revision 423e3705 trunk/Pithos.Installer/PithosPlus.iss

b/trunk/Pithos.Installer/PithosPlus.iss
393 393
            
394 394
      hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));                     { get main wizard handle }
395 395
      IssEnableAnyFileInUseCheck(ExpandConstant('{app}'));
396
      sModuleName :=ExpandConstant('{app}*;pithos*.exe;PithosPlus.exe');      
397
      
396
      sModuleName :=ExpandConstant('pithos*.dll;PithosPlus.exe');            
398 397
      nCode:=IssFindModule(hWnd,sModuleName,'en',false,true);                { search for module and display files-in-use window if found  }
399

  
400 398
     if nCode=1 then  begin                                                 { cancel pressed or files-in-use window closed }
401 399
          PostMessage (WizardForm.Handle, $0010, 0, 0);                     { quit setup, $0010=WM_CLOSE }
402 400
     end else if (nCode=0) or (nCode=2) then begin                          { no module found or ignored pressed}
403 401
          Result := true;                                                   { continue setup  }
404 402
     end;
405

  
406 403
  end;
407

  
408 404
end;
409 405

  
410 406
function InitializeSetup(): Boolean;

Also available in: Unified diff