Synnefo » Pithos MS Client

MinVersion=0,5.01sp3

ArchitecturesInstallIn64BitMode=x64

AppMutex=PITHOSMUTEX

SetupLogging=true

UninstallLogMode=append

VersionInfoCompany=GRNET

      hWnd := StrToInt(ExpandConstant('{wizardhwnd}'));                     { get main wizard handle }

      IssEnableAnyFileInUseCheck(ExpandConstant('{app}'));

      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;