\r
hWnd := StrToInt(ExpandConstant('{wizardhwnd}')); { get main wizard handle }\r
IssEnableAnyFileInUseCheck(ExpandConstant('{app}'));\r
- sModuleName :=ExpandConstant('{app}*;pithos*.exe;PithosPlus.exe'); \r
- \r
+ sModuleName :=ExpandConstant('pithos*.dll;PithosPlus.exe'); \r
nCode:=IssFindModule(hWnd,sModuleName,'en',false,true); { search for module and display files-in-use window if found }\r
-\r
if nCode=1 then begin { cancel pressed or files-in-use window closed }\r
PostMessage (WizardForm.Handle, $0010, 0, 0); { quit setup, $0010=WM_CLOSE }\r
end else if (nCode=0) or (nCode=2) then begin { no module found or ignored pressed}\r
Result := true; { continue setup }\r
end;\r
-\r
end;\r
-\r
end;\r
\r
function InitializeSetup(): Boolean;\r