MinVersion=0,5.01sp3
ArchitecturesInstallIn64BitMode=x64
AppMutex=PITHOSMUTEX
-OutputDir={tmp}
+OutputDir=Output\
SetupLogging=true
UninstallLogMode=append
VersionInfoCompany=GRNET
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;