From: George Pantazis Date: Tue, 27 Mar 2012 15:34:54 +0000 (+0300) Subject: Iss changes X-Git-Url: https://code.grnet.gr/git/pithos-ms-client/commitdiff_plain/423e37059b16a62c499065ce83f23dc568872673 Iss changes Signed-off-by: George Pantazis --- diff --git a/trunk/Pithos.Installer/PithosPlus.iss b/trunk/Pithos.Installer/PithosPlus.iss index 451511a..1bad9a3 100644 --- a/trunk/Pithos.Installer/PithosPlus.iss +++ b/trunk/Pithos.Installer/PithosPlus.iss @@ -393,18 +393,14 @@ begin hWnd := StrToInt(ExpandConstant('{wizardhwnd}')); { get main wizard handle } IssEnableAnyFileInUseCheck(ExpandConstant('{app}')); - sModuleName :=ExpandConstant('{app}*;pithos*.exe;PithosPlus.exe'); - + sModuleName :=ExpandConstant('pithos*.dll;PithosPlus.exe'); nCode:=IssFindModule(hWnd,sModuleName,'en',false,true); { search for module and display files-in-use window if found } - if nCode=1 then begin { cancel pressed or files-in-use window closed } PostMessage (WizardForm.Handle, $0010, 0, 0); { quit setup, $0010=WM_CLOSE } end else if (nCode=0) or (nCode=2) then begin { no module found or ignored pressed} Result := true; { continue setup } end; - end; - end; function InitializeSetup(): Boolean;