Revision 423e3705
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