(when (eq system-type 'windows-nt)
  (dolist (dir (directory-files "c:/Programme/Emacs/Emacs-Packages" t
				"c:/Programme/Emacs/Emacs-Packages/[^.]"))
    (when (file-directory-p dir)
      (add-to-list 'load-path dir))))